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[57] ABSTRACT 

A system is provided for eliminating time-consuming, 
unnecessary transfers of data over networks such as the the 
World Wide Web while at the same time guaranteeing 
timeliness of the data used by recipients. Timeliness is 
assured by immediately sending small data-notification mes- 
sages whenever data becomes relevant or changes. Effi- 
ciency is guaranteed by transmitting the data itself only 
when requested by the recipient of a data-notification mes- 
sage. In particular, recipients are alerted to the presence of, 
and changes in, data they might use by data-notification 
messages containing a timestamp, the data location, and a 
checksum. Based on the timestamp, the recipient can deter- 
mine whether the data-notification message contains timely 
information or should be ignored. Based on the data location 
and checksum, the recipient can determine whether it 
already has the current version of the data in question, for 
example stored in a cache. 

9 Claims, 6 Drawing Sheets 
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SYSTEM FOR SENDING SMALL POSITIVE the data will be wastefully re-retrieved even though it has 

DATA NOTIFICATION MESSAGES OVER A not changed. If the predicted time-to-live is too long, then 

NETWORK TO INDICATE THAT A the user will end up using obsolete data. 

RECIPIENT NODE SHOULD OBTAIN A Because caching, with or without time-to-live indications, 

PARTICULAR VERSION OF A PARTICULAR s does not guarantee up-to-date data, users are forced to 
Dj\XA ITEM explicitly request the re -retrieval of data whenever they want 

to be sure that they have up-to-date information. This is 
FIELD OF THE INVENTION inefficient because most of the time, the data that is 

re -retrieved has not changed and is therefore unnecessarily 
This invention relates to the efficient and timely commu- transmitted. This also wastes the user*s time, because he has 
nication and update of data stored in a repository such as one to wait until the entire data file has been re-retrieved before 
or more World Wide Web servers to a number of nodes using he can know whether it has changed. This is also awkward, 
that data in a computer network, and more particularly to the because the boundaries between sources of data are often not 
use of checksums and timestamps to indicate version made apparent to the user, and therefore it can be dif&cult for 
changes for the data. ^ to know when explicit requests for re-retrieval have 

"^^ to be made. 

BACKGROUND OF THE INVENTION What is needed is an automatic way of detecting when the 

y . , , . 1 . data corresponding to a URL changes and therefore must be 

In networked applications mvolvmg many users widely .g.^etrieved, and doing the re-retrieval when and only when 



dispersed on the Internet working with a collection of many 



it IS necessary. 



large evolving data files, the problem arises as to how the 20 _^ , . , . , . , . , 

existence and contents of these files are communicated to the , basic situation above involves a single user mleract- 

various users. When data is stored in the World Wide Web, "^^ ^ ^"^T I ^f^'f^^"^ °^ 

the location of each data file is named by a Uniform """^^y iip-to-date access to changeable data is even more 

Resource Locator, or URL. Users find out about the exist- '=°.™Pl*'' ^'^'^ "^^^l ^"^^^ are sunultaneously mteracUng 
enceofdata files via URLs stored in other flies or otherwise 25 with each other and with vanous sources of data. The 

communicated to them. Users interact with the data using a P'"''!*'" greater because the heavy network demands of 

'web browser', which can fetch the data corresponding a ^^^^^'^f mteraction mean that avoiding the waste and 

U^l^ delay of unnecessary re-retnevals of data is even more 

' . , ^ , . . important than in a single-user situation. In addition, further 

The most straightforward way to ensure that a user will compHcations arise because it is important that when a data 

always have timely up-to-date mformation about the con- fii^ changes, all the interacting users see this change at the 

tents of a given data file is for a web browser to fetch the ^^^^ 

contents of the file from its source whenever a user wishes r? i j - i- 

^ . , • J . r J . . rrr^x tor examplc, considcr applications involving uctworked 

to inspect or otherwise use the data referred to by a URL. „ t*- • * i • * r *u i- 

TT ^ . . - ^ u^f a vjL^^. multi-user vu-tual environments. In these applications users 

However, this approach is quite unsatisfactory for several • . , • ■,• • . , j . j r 

r-- . - J ? £1 11 u t - 1 interact m a three dimensional world generated by computer 

reasons. First, since these data files usually change relatively j j- » ^ *• i- *u* * j l 

1 1 -J 1 £1 . . . ^t r 1 i graphics and digital sound generation. For this to work, each 

slowly, the same identical file contents are typically fetched j j -Tu *u j ■ *• c .t, t 

TTr.r ^ser must be provided with the descnption of the virtual 

many times if a user uses the same URL many times. This . , * .u u u • r j * 

/ . 1 . J • ... o J • . r . . 1 world they are in, the world bemg a composite of data files 

wastes network bandwidth. Second, since each fetch takes a *j j - j j .hj jl u.. 

* f . V » " ^^^'-^ ^-^^^ « mdependently designed and controlled and brought together 

considerable amount of time, i.e., has high latency a user ^^^^ .^^^^^^^^ simulation. Up-to-date 

has to wait for a corisiderable amount of time every time he information about all these files must be efficiently commu- 

wishes to use a URL This wastes the user's time. ^^^^^ ^^^^ ^ ^ ^^^^^ ^^^^.^^ 

To attempt to overcome these problems, typical web ^est developed current example of a networked 

browsers store local copies of data files they have retrieved multi-user virtual environment is the military training sys- 

via URLs. This approach, which is referred to as ^caching', that is based on the IEEE Distributed Interactive Simu- 

means that while it is cosdy to retrieve a file the first time it i^tion protocol, DIS. This environment supports virtual war 

IS used, the data can be obtained with no network usage and ^^^^s in which users in simulated tanks, trucks, aircraft and 

very httle tmie delay for subsequent use. ^j^er mihtary vehicles interact in a virtual landscape. 

Caching is essential, because it leads to a dramatic xhe description of the virtual world in a networked 

improvement in network efficiency and URL access speed, multi-user virtual environment can be divided into two 

However, it does not ensure that a user has up-to-date broad categories: small rapidly changing pieces of informa- 

information about the contents of a given URL. Quite the tion such as the posiUon of a particular tank or airplane, and 

contrary, as soon as the data file referred to by a URL large slowly changing data such as Uie appearance of parts 

changes, cached copies of the file become obsolete, and any of the landscape and individual vehicles, 

user using a cached copy is using incorrect data. ^he focus of the DIS protocol is the efficient low latency 

To counteract this problem with caching, typical web communication of small rapidly changing data. It sidesteps 
browsers retrieve not only the data corresponding to a URL, the problem of timely up-to-date communication of large 
but also a time-to-live record indicating how long the data is slowly changing data by requiring that this data must all be 
expected to be valid. Once this time has expired, the data is communicated before a simulation begins and cannot 
removed from the cache so that it will be re-retrieved the change during a simulation. Specifically data sets represent- 
next time the user consults the URL. fng the appearance of the vehicles, the shape of the terrain, 

This time-to-live approach is better than caching with no and other artifacts are pre-stored at each network node, and 

time limit. However, it stiU does not ensure that a user has linked directly into the simulation programs. Updates can 

up-to-date information about the contents of a given URL. only be introduced through a cumbersome process of noti- 
Tlie problem is that, for all but a very few URLs, it is not 65 fication to each of the users, oftentimes involving electronic 

possible to predict in advance when the next change in the mail to specify that new data is available and instructions for 

data will occur. If the predicted time -to-live is too short, then downloading and installation. 
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In order to support a wider variety of applications, such as An easy to understand and easy to compute checksum 
iron-stop networked virtual environments in which users can algorithm is to divide the data into a series of 32-bit chunks 
generate their own spaces, it is essential to support the and then add all the chunks together ignoring overflow to 
communication and update of large slowly changing simu- produce a 32-bit summary of the data as a whole. Changing 
lation data while a simulation is in progress. This must be 5 any bit in the data will ahnost certainly change the check- 
done very effidenUy because network communication is at ^^^^ However, there are many kinds of simultaneous 
a premmm m such a simulation. In addition, It must be done changes to the data what will leave the checksum 
without user intervention because it is desired that users unchanged. For instance, adding 1 to one part of the data 
concentrate wholly on the sinaulation itself, not on the ^^^^ subtracting 1 from another, 
underlying communication mechanisms. _ 

Again, what is needed is an automatic way of detecting avoid this kmd of problem more complex but much 
when remotely controUed data changes and therefore must ^'^^^^ ^^^l^ty checksum algonthms have been developed 
be reloaded, and doing the reloading when and only when il ^uch as cyclic redundancy checks, see D. V. Sarwate "Corn- 
is necessary. putation of cyclic redundancy checks via table look-up", 
c,TTww * r..r ,xr. r^.r^^vr CommumcatioDS of the ACM, 31(8), pp. 1008-1013, 1988. 
SUMMARY OF INVENTION 15 ^^^^ ^^^^ quality algorithms, one can compute a 

A fundamental conflict underlies the problem of ensuring 32-bit checksum that will change with extremely high 

access to remote data that is timely and up-to-date as weU as probability no matter how the data is changed. In particular, 

efBcient and low-latency. To ensure timely up-to-date access using these algorithms, the probability that a typical change 

to remote data, there has to be frequent communication of to the data wifl force the checksum to change approaches the 

information about what versions of what data are avaflable. 20 theoretical limit of l-2"^^=0.9999999998. 

However, to ensure efficient low-latency access to remote . . , . . . \ 

data, the data has to be cached locafly and there must be very , S^^f reliability than this is required one can use a 

infrequent communication of the data itself. 1°°^^^ checksum. Alternatively, in the extremely unhkely 

The subject invention solves this problem by separating ^^^l ^ ^^^^ ^^"'^ checksum 

the communicaUon of information about the state of data ^ ^^^her version, one can arrange for the new version to 

from the communication of the data itself. In particular, the ^^"^^ ^ different checksum by making an msignificant 

subject system uses the frequent communication of small change to Uie underlying data, such as adding a blank line at 

data-notification messages to ensure that data is timely and of a text file. Almost every type of file can readily 

up-to-date while minimizing the number of times the data tolerate some sort of insignificant perturbation, 

itself has to be communicated. A final advantage of checksums is that in addition to 

The key components of a data-notification message are a allowing the version of a copy of a data file to be unam- 

data location and a checksum on the data. The data location biguously identified, checksums can be used to verify that a 

specifies where the data can be found. For example, when data file has been correctly transmitted. The reason for this 

operating over the World Wide Web, the data location is is that any errors in transmission wifl also change the 

specified using a URL. The checksum acts as a compact checksum. 

fingerprint indicating the version of the data, by summariz- In summary, a data-notification message including a data 

ing the contents of the file. location and 32-bit checksum can describe a specific version 

It wifl be appreciated that the standard way of referring to of a data file with almost total certainty in a very small space, 
versions of a data file is via a version number that is There are several ways that data-notification messages can 
incremented each time the file is changed. However, the be used to ensure access to remote data that is timely and 
problem with version numbers is that their relationship to a up-to-date as well as efficient and low-latency, 
data file is entirely arbitrary. Unless the version number is For example, data-notification messages could be used to 
explicitly stored in the file, there is no way to look at a copy improve the performance of web browsers as follows. This 
of the file in isolation and determine what version the copy being a web-based application, URLs would be used to 
corresponds to. Unfortunately, most standard data formats 45 specify data locations. A browser would cache data files 
do not contain version numbers. Further, those that do when retrieved, but instead of storing them with a time-to- 
contain the version numbers store these numbers in different live indicator would store them with their checksums, 
places and use incompatible version numbering schemes. In Whenever the user wishes to inspect or otherwise use the 
addition, it is typically all too easy to change the data in a data referred to by a URL, the browser would send a 
file while forgetting to change the version number. Thus, in 50 data-notification message to the source of the data in ques- 
summary, version numbers are not uniformly available, tion including the checksum of the cached data and request- 
cumbersome to deal with, and not totally reliable as an ing that new data be sent if and only if the cached data is out 
indicator of whether a data file has changed. of date. This approach allows the accuracy of the cached 

In contrast to version numbers, whose association with a data to be checked frequently while ensuring that the data 

file is arbitrary, a checksum is computed from the data in a 55 itself is transmitted only when the data has changed and the 

file. This gives checksums three key advantages. First, they user wants to use it. The ability to cache World Wide Web 

can be applied to any kind of file without making any data during and across sessions with notification when the 

changes in or assumptions about standard formats. Second, data changes, avoids the presentation of stale data while 

they can be uniformly applied to all files. Third, they are retaining good performance. 

ahnost cornpletely reliable. Since they are computed from eo Using data-notification messages with checksums in a 

the file, it is impossible for someone to change a file whfle web browser would permit a simple, rapid indication of 

forgetting to change the checksum. versions, while at the same time providing a simplified 

A variety of different checksum algorithms are available; verification procedure to ascertain the validity of the data, as 

however, they all have the property that they summarize the well as the fact of a version change. It will be appreciated 

file as a whole using a smaU number of bits and with high 65 that checksums can be utilized with data regardless of 

probabflity, any change in the data wiU force a change in the format or file type, because the checksum can be computed 

checksum. from the data, and need not be stored with it. 
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One aspect of the subject invention is that, while the In Spline, the subject invention is embodied by transmit- 

system is described here in connection with networks, the ting UDP data-notification messages containing URLs with 

version change detection system is equally applicable to a timestamp added to each message so that data-notification 

situations in which some or all of the data is transmitted by messages that have arrived out of order and are no longer 

other means, the method of transmission being immaterial. 5 timely can easily be ignored. These data-notification mes- 

For instance, the data cache in a web browser or other ^^ges arc sent out by the sources of data whenever a new 

system could be preloaded with data from a CD-ROM or data file becomes available and whenever a data file 

magnetic media rather than over a network, which could chanecs 

greatly reduce system initialization time. After this preload, ^ , , . • r ,* • . , i- 

data-notification messages could be used over the network ^ underlying assumpUon of this parUcular embodmient 

without prejudice to the way the data was initially loaded. ^° ^ ^^^^ Poi^t m tune, there is a single pomt of control 

As a second example, consider the case of supporting the ^""^ ^^^^ ^^^^ ^^f^ ^RL. This means that 

efScient communication of large slowly changing data in a °°,^y "^^^ ^^^'^S messages about a UR^ 

networked multi-user virtual environment. The subject which avoids problems that could otherwise anse with sites 

invention was developed in the course of designing a receiving mconsistent messages from competing sources of 

scalable platform for networked multi-user virtual "ifonnation about a given URL. 

environments, called Spline.As an illustration, the following Most of the time, a Spline process operates based on 

describes the way the subject invention operates in Spline. cached versions of the large slowly changing files that arc 

To start with, it must be realized that the situation is needed for generating computer graphics images and digital 
somewhat different in SpHne than in the web browser ^o^^^- ^h^s aUows very efficient low latency operation, 
example in several ways. First, in the web browser example. However, a Spline process continually monitors the data- 
there is an enormous amount of data the user might choose notification messages it receives in order to venfy that the 
to use at any given moment and therefore only the user can cached data it is using corresponds to the latest versions 
tell what he will want next. Therefore it is appropriate that available and to detect when new data is needed. This latter 
the data-notification messages flow from the user to the ^ situation arises for example, when a new kind of object 
sources of data. In contrast, in a multi-user virtual enters the virtual environment for the first time, 
environment, it can be reliably predicted what large slowly Whenever the need for new or changed data is detected, 
changing data a given user needs access to based on where Spline fetches the new data over the World Wide Web using 
the user is in the virtual world. For instance, he needs to the URL in the data-notification message, verifies that the 
access the description of the landscape immediately sur- 3Q data was correctly received using the checksum, and caches 
rounding him and the descriptions of the various objects the data, URL, and checksum for future reference. In con- 
near him. As a result, since the user's need for data can be trast to DIS, this mechanism allows the timely communica- 
externally predicted, it is appropriate for data-notification tion at runtime of all data both small and large while 
messages in Spline to flow from the sources of data to the ensuring that the cost of retrieving large data sets is only 
user, rather than vice versa. The key advantage of this is that 35 incurred when the data is new or changes, 
users can be informed of changes in data files the instant Multicasting URLs provides ef&cient, scalable communi- 
they happen. Further, users can be informed of the need for cation about large data sets. Note that the sender of a 
data somewhat in advance of the moment when it becomes multicast message has no direct knowledge of how many 
essential, thereby allowing time for the data to be retrieved recipients there will be, or how widely dispersed they may 
over the network if necessary. be, and so it is particularly advantageous to use a naming 

Second, the network communication situation is more scheme Uke URLs which are a lingua franca across the entire 
demanding in a networked multi-user virtual environment internet. Note further, diat the above system allows the large 
than when using a web browser. In particular, the messages data sets themselves to be reliably communicated using 
containing small rapidly changing data, e.g., positions of standard World Wide Web protocols and software, while 
objects, must be communicated with very low latency. The 45 unreliable multicast protocols and channels are used for the 
only practical way to achieve this low latency when com- data-notification messages referring to the URL data, with 
municating between large numbers of users is to utilize the probability of their receipt being improved by repeated 
multicast messages using the User Datagram Protocol, UDR retransmission at randomized intervals. 
An unfortunate aspect of this is that UDP messages are not summary, a system is provided for eliminating time- 
guaranteed to arrive in order. As a result, some mechanism 50 consuming, unnecessary transfers of data over networks 
must be provided for ensuring that late arriving messages such as the the World Wide Web while at the same time 
will not cause problems. guaranteeing timeliness of the data used by recipients. 

Specifically, suppose that a message Mj is sent. Suppose Timeliness is assured by immediately sending small data- 

also that at some later time a message M2 containing new notification messages whenever data becomes relevant or 

data that renders M^ obsolete is sent. It is unfortunately the 55 changes. Efficiency is guaranteed by transmitting the data 

case that using UDP, a given user U might receive M^ after itself only when requested by the recipient of a data- 

Mj. Unless something is done to prevent it, this will cause notification message. In particular, recipients are alerted to 

U to end up with the obsolete data in M^, rather than the the presence of, and changes in, data they might use by 

up-to-date data in Mj. data-notification messages containing a timestamp, the data 

Ibis problem is dealt with in Spline by including a 60 location, and a checksum. Based on the timestamp, the 

timestamp in every message and associating a timestamp recipient can determine whether the data-notification mes- 

with each piece of data stored by a user. Using these sage contains timely information or should be ignored, 

timestamps, it is easy to ignore data that arrives too late to Based on the data location and checksum, the recipient can 

be useful. Specifically in the example above, U would ignore determine whether it already has the ciurent version of the 

message when it arrives because it contains a timestamp 65 data in question, for example stored in a cache. The use of 

that is less than the timestamp on the corresponding stored checksums makes it possible for the subject system to 

data, this stored timestamp having come from M2. operate in conjunction with any kind of data without any 
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alteration of standard data formats and makes it possible for It will be appreciated that previously a message has been 

the recipient of data to independently verify that the data was received by recipient 14 to indicate a particular URL and a 

correctly transmitted by computing the checksum. If, and prior checksum and timestamp. The information in this 

only if, the recipient wishes to use the data and does not yet previous message, URL, checksum^ and timestamp^, is 
have the current version, the recipient requests transmittal of S stored in data cache 30 along with the corresponding data 

the current version. This guarantees that the data itself is sent data^ . 

only when absolutely necessary. In one embodiment, the The information in the newly received message is com- 

data is transmitted over the World Wide Web and the data pared at 28 with the cached information to determine 

location is specified by a Uniform Resource Locator, URL. whether a new version of the data must be retreived. It will 

In a fiirther embodiment, the data-notification messages lO be appreciated that if there had been no previous version of 

are transmitted via multicast to a large number of recipients, the data in the cache, then a new version of the data would 

while allowing the large data sets themselves to be delivered of course also have to be retrieved, 

through other, more suitable means. Each message sent from source 12 has a particular URL 

BRIEF DESCRIPTION OF DRAWINGS ^ computed checksum 34, and a timestamp 36, with the 

computed checksum being a 32-bit quantity computed by a 

These and other features of the subject invention will be standard checksum algorithm. A variety of different check- 
better understood taken in conjunction with the Detailed sum algorithms are available included easy to compute but 
Description in conjunction with the Drawings, of which: low quality algorithms such as adding together successive 

FIG. lA is a block diagram of the subject system indi- chunks of 32-bits and more expensive but much higher 

eating the utilization of timestamps and checksums for the quality algorithms such as cyclic redimdancy checks see D. 

indication of a change in the data available from a network V Sarwate "Computation of cyclic redundancy checks via 

server; table look-up**, Commimications of the ACM, 31(8), pp. 

FIG. IB is a diagrammatic representation of a scenario in 1008-1013, 1988. 

which new data is provided at a source, with the source Some applications may rely on the very high probability 

transmitting messages concerning the change in data to a that any change to the data will result in a change in the 

recipient; checksum, while others may take active steps to ensure that 

FIG. 2 is diagram of the data included in a network all changes will result in new checksums. This can be 

message, including timestamp, URL, and checksum; accomplished in the extremely unlikely case that an updated 

FIG. 3 is a diagram of the information stored by the 30 ^^^^a set has the same checksum as the previous version by 

recipient to enable determination of a data change affecting making an insignificant change to the data, such as adding 

its cache- ^ space at the end of a text file, and verifying that this 

FIG. 4 is a flowchart indicating the process for sending a Perturbation affects the checksum, 

message with a timestamp, URL and checksum whenever ^ ^ ^° ^^^^ ^^^^ 

the source desires to send any message about the data in that 35 timestamp are provided in the transmitted 

URL, including the recomputation of a checksum in message at 38 as a packet of data transmitted over network 

response to data modification for the corresponding URL; makes a data change, the fact of the 

inn < n fl™,«un,* • *■ • * change is transmitted to the recipient 14, which Upon co m- 

FIG. 5 IS a flowchart of the process mitiating upon receipt . , j.i j! 

„r„ *u*u c rrr^ A • i. • u parmg timcstamps and checksiuns Can dctcrmmc if a chauge 

of a message sent by the process of FIG. 4 m which I ^ it ,1. - • * ^ * l 
jui I. ri« has occurred. If so, the new version IS requested at 40 such 

timestamps and checksums are evaluated for changes, fol- 40 ^ , ^ . . 

1 J u *L * f *L J * r r web server 16 provides the new data to the recipient. 

lowed by the request for the new data from the source, if ^ ^ , . ... 

needed* and Referrmg now to FIG. IB, how this is accomplished is as 

£ ' ^ a u * J u* *u c 11 • follows. As can be seen, at steady state, and at time t., the 

FIG. 6 IS a flowchart describmg the process following the . * 1.1. HrX 

• . r j« - L-u ui source 12 is sendmg messages with the corresponding URL, 

receipt of new data m which a checksum is computed and .1 - • *^a^- ■ c • 

compared with checksum in the cache entry to establish the 45 ^^^J^ tmiestamp to recipient 14. This infomiaUon is 

vaUdity of the new data. f'=«P^^°' 

At time tj, a new version of the data is provided at the 
DETAILED DESCRIPTION source, with a new checksum and timestamp being com- 

Referring to FIG. lA, a network 10 connects a source 12 puted. At this time the recipient is unaware of the new data, 
and a recipient 14 at various nodes on the network. A web 50 At time tg, the source continues to send messages with the 
server 16 provided with data 18 is utilized to deliver data corresponding URL and the new checksum/timestamp. At 
provided by the source to the recipient. It will be appreciated the recipient, the message mentioning the new checksum 
that while thesystemof FIG. lAis described with the single and timestamp is received, and the new data is requested 
recipient, the subject system can be utilized with multiple from the World Wide Web, with the local cache having its 
recipients. 55 data marked as out of date. It will be noted that the old data 

FIG. lA illustrates the situation where the data 18 pro- may be utilized in the interim, before the new data is fetched 
vided to web server 16 has recently changed. It is important from the Web Server. 

that when there is a change of data at source 12, recipient 14 At time i^, the new data is received, and the recipient's 
be made aware of such change. The change in data is cache is brought up to date. 

illustrated by the onscreen character 20, stored at the 60 What will be appreciated is that the recipients can be 
recipient, to be changed to the character 22 represented by made aware in a very efficient manner of the generation of 
data2. In this case, the change involves the character repre- new data for a given URL. This notification is transmitted in 
sented being provided with a beard and glasses. In order to a small packet, not necessitating the transmission of the new 
inform the recipient of the change, a checksumj and times- data until requested by the recipients. This eliminates the 
tamp2 are provided for the corresponding URL at 24 such 65 necessity of transmitting large packets of data each time 
that the message received at 26 contains the URL and the there is a data change. The system also eliminates the 
updated checksum and timestamp. necessity for the recipients to periodically check whether the 
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data they have stored has become obsolete. Further advan- 
tages of the subject system occur in a multicasting environ- 
ment. For instance, since multicasting encourages the use of 
small packets, the subject system takes advantage of 
checksum/timestamp comparison system to provide notifi- s 
cation of newly changed data to multicast users, at the same 
time allowing them to use more reliable means for obtaining 
the data itself. The subject system minimizes exposure to 
packet loss, because only small notification packets are sent 
via unreliable multicast network protocols. The sender may lO 
choose to issue redundant notification packets in order to 
improve the likelihood of their receipt. 

More particularly, and referring now to FIG. 2, it will be 
appreciated that the network message 24 contains only the 
timestamp, URL, and the aforementioned checksum. This ^5 
data format is sufficiently small so as to fit into a single UDP 
packet. 

Referring now to FIG. 3, the data which is cached at the 
recipient is cached as illustrated by the fields 42, 44 and 46, 
with the timestampAJRL/checksum residing in field 42, and 
with field 44 indicating valid data. Field 46 caches the 
current data. 

In operation, and referring now to FIG. 4, when source 14 
is to send a message, the system determines at 50 whether 
data at the conesponding URL has been modified since the 
last message or is new. If so, the corresponding checksum is 
computed at 52. At 56, the URL and checksum are sent over 
the network with the corresponding timestamp generated at 
54. 



10 

Referring now to FIG. 5, upon receipt of the message 
generated by the process of FIG. 4, as illustrated at 60, the 
timestamp is evaluated to ascertain if it is newer than the 
latest current message received, if any, concerning the 
corresponding data set. If so, and as illustrated at 62, the 
checksum is compared with that of the message, if any, 
which has been cached to ascertain whether the data has 
changed or is new. Upon the ascertaining of a change, and 
as illustrated at 64, the new checksum replaces the old 
checksum in the cache entry, the data in the cache entry is 
marked as being no longer valid, and a request for the new 
data is generated. Thereafter, as illustrated at 66, the new 
timestamp received is stored locally in the cache entry. 

Referring now to FIG. 6, when the new data requested is 
received, its checksum is computed at 70 and is compared at 
72 with the checksum in the cache entry. If it is the same as 
the checksum cached, then as illustrated at 74, new data is 
stored in the cache, with the DAFA-VALID flag set to true. 
If there is a difference between the computed checksum and 
the checksum that has been cached, then an error signal is 
generated at 76 to effectuate an exit from this process. 

Assuming that new valid data is cached, the process is 
completed as indicated by EXIT 78. 

Subroutines for performing the indicated functions 
follow, with the code in ANSI C describing the operation of 
a scalable platform for interactive environments, called 
Spline. 
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at 54, 

-Referring now to Figuie 5, upon receipt of the meaaage generated by the process of 
Figure 4, as illustrated at 60, the timestamp is evaluated to ascertain if it is newer than the 
latest current message received, if any, concerning the corrcsponiing data set. If so, and 
as illustrated at 62, the checksum is compared with that of the message, if any, which has 
been cached to ascertain whether the data has changed or is new. Upon the ascertaining of 
a change, and as illustrated at 64, the new checksum replaces the oM checksum in the cache 
entry, the data in the cache entry is marked as being no longer valid, and a request for the 
new data is generated. Thereafter, as illustrated at 66, the new timestamp received is stored 
locally in the cache entry. 

Referring now to Figure 6, when the new data requested is received, its checksum is 
computed at 70 and Is compared at 72 with the checksum in the cache entry. If it is the 
same as the checksum cached, then as illustrated at 74, new data is stored in the cache, with 
the DATA-VALID flag set to true. If there is a difference between the computed checksum 
and the checksum that haa been cached, then an error signal is generated at 76 to effectuate 
an exit from this process. 

Assuming that new valid data is cached, the process is completed as indicated by EXIT 

78. 

Subroutines for performing the indicated functions follow, with the code in ANSI C 

describing the operation of a scalable platform for interactive enviromnciU, called Spline 

•include <8tdlib.lL> 
•include <signal.h> 
•includfl <stdio.h> 
•includo <ernLo.h> 
•includtt <unistd.]i> 

tincluda < ays/ types, 1l> ^ 
•include <limit8.h> 

•include <sy8/ftocket .h> 
•include <sy8/file.h> 
•include <iietinat/in.h> 
•include <net/if .h> 
•include <netdb.h> 
•include <pwd.h> 

•if def hpoz 
iinclude <sy8/fcntl.h> 
« include <ay9/ioctl.h> 
•else /♦ sgi ♦/ 
•include <fcatl.h> 
•include <net/»oioctl.b> 
•include <bfltrijig.h> 
•include <8ya/8chedctl.h> 
•endif 

•include <arpayinet.h> 
•include <Btring-h> 
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. #iaclude <8pli2ie.h> 
' # include <z debug. h> 
;# include <9plixie/tiinG .b.> 
i #in.clude <splizie/xietvork.h> 
#in.clude <spline/objd€f s .K> 
: #in.clude <spliDe/share .h> 

, #if def hpux 

' #def ine SO.REUSEPORT SO.REUSEADDR 
#endif 

static int fdcnt = 0; 
extern int OBJ; 
; extern int LODPAUDIO ; 
extern int testlngSound; 

extern void handleSourceActionMsg(spId speaksrAction) ; 
extern void checkClasses(void) ; 

void aetworkAudit (void) ; 

int LOCALE = 0; 

#def ine DEFAULT.TTL 8 /* Time-to-live */ 
#def ine DEFAULT.SPLINE.PORT.BASE 8000 
#def ine MAXLOCALES 40 
, »def ine TOTALLOCALES 200 

tfdafine DROP 0 
ttdefiae ADO 1 
' »daf ine NEIGHBOR 0 
^define SELF 1 

tfdefine BUFFERFULL -1 

«dafin« OBJECT.CHANKELS 1 
»d9f ine AUDIO.STREAM 1 
#dQf ine TEXT.STREAM 2 
#d9fin© OBJECT_MASK 0x1 
tdef ine AUDIO.MASK 0x2 
(»def ine TEXT.MASK 0x4 
»d6f ine CHANNELS, PER. LOCALE 3 

#def ine Tch SPTAG 

»def ine ATch (SPAUDIO I SPTAG) 

tfdefine VTcb (SPVISUAL | SPTAG) 
: tfdefine AVTch (SPAUDIO I SPVISUAL I SPTAG) 
, tfdefine TGch (SPTAG I S POTHER) 

tfdefine ATOch (SPAUDIO ( SPTAG | SPOTHER ) 

tfdefine VTOch (SPVISUAL t SPTAG | SPOTHER) 

tfdefine AVTOch (SPAUDIO I SPVISUAL 1 SPTAG | SPOTHER) 

short bits2bits[] =* { 

TOch. ATch, VTch, AVTch, Tch. ATch, VTch, AVTch, 
TOch, ATOch, VTOch, AVTOch, TOch. ATOch. VTOch. AVTOch 

>; 

int i2chn = {Tch, ATch, VTch, AVTch, TOch, ATOch, VTOch. AVTOch}; 

int bits2ch[] = {-1. -1, -1. -l. 0. 1, 2, 3, -1, -1, -1, -1, 4, 5, 6, 7> 

typedef struct .localeList { 

spLocale lid; 

struct _localeList *next; 
> localeList; 

typedef struct { 
char *code; 
long packets ; 
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; long bytes; 
I TlmoStajnp timingtimo; 
I long timiogbytes ; 
I TimaStamp smalltime; 

long smallbytes; 
i long stnallpeak; 
I y Stat lot ICS ; 

j Statistics readStats[] ^ 

i {{"rot"}, {"rt"), {"rvt">, {"rvto»>, {"rat">, 

{"rato">, {"ravt"}, {"ravto"), {"rsa"}, {"rst"}}; 
i Statistics loopStats[] ° 

! {{"lot"), {"It"}, {"Ivt"}, {"Ivto"}, {"lat"}, 

i {"lato"}, {"lavt"}, {"lavto"}, {"Isa"}, {"1st"}}; 

j Statistics unloopStats [] ■ 

{{"uot"}, {"ut"}, {"uvt"}, {"uvto"}, {"uat"}, 
{"uato"}, {"uavt"}, {"uavto"}, {"usa"}, {"ust"}}; 
i Statistics subspaceStatsIn « {"subspace-r"}; 
; statistics subspaceStatsOut = {"subspace-w"} ; 

■ /♦ there's one of these for each locale being listened to */ 
: typedef struct { 

spLocale lid; 
spid pov; 

int self POVCount [CHANNELS.PER.LOCALE] ; 
int totalPOVCount[CHANNELS_PER_LOCALE]; 
> Localelnfo; 

. /* these arrays are kept in sync */ 

■ static Localelnfo *locales[MAXLOCALES] ; 

, static struct pollfd objfdstMAXLOCALES] ; 
static struct pollfd audiofdsCMAXLOCALES] ; 
static struct pollfd textfds [MAXLOCALES] ; 
static int localecnt = 0; 

. /♦ there's one of these for each locale */ 
typedef struct { 

int index; /* index into array of locales being listened to */ 
int loopOut; /♦ fd for looped output ♦/ 
int unloopOut; /♦ fd for unlooped output */ 
TiraoStamp last send; /* time of last networkSendC) */ 
int numNeighbors ; 

struct LocaleNeighbor **neighbors; 
1 > LocaleFD; 

■ static LocaleFD If d [TDTALLOCALES] ; 

: static int badversion = 0; 

; /* reused for every outgoing osg */ 
; struct 3ockaddr_in outgoing; 

i 

; static int ttl; 

I static unsigned baseaddr; 

. static unsigned subspaceaddr; 

I static struct pollfd subspacefdCl] ; 

; static int subspaceout; 

;. u.short spBasePort = DEFAULT_SPLINE_PORT.BASE; 

i static int estimateTineDelay(Mess2ige ♦msg) ; 

. /* callback functions set in spvisual.c ♦/ 
void (♦graphlcsChangeLocaleHook) (spld. void *) = NULL; 

■ void (*graphicsRenoveLocaleHoolt) (spLocale) NULL; 

; int raaxfd = 0; 
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:; void siginput() -( 
zpriatf ("input ") ; 

} 

i #Qiidif 

! /* hera will probably need to change 
I static u_short subspacePort (void) { 
return spBasePort - 1; 



static u.ohort localePort (spLocale lid, int type) < 
int foo = (type < OBJECT.CHANMELS) ? 0 : 1; 

return spBasePort + (u.ahort) (2*lid + foo); 



static unsigned localeAddr(spLocale lidj int type) { 
return (unsigned) (baseaddr + (lid << 8) + type) ; 



, channel on which to send nsgs about id */ 
static iut msgTypeCspId id) {. 

if ( subclass (get Class( id) , spcSourceAction)) { 
return AUDIO STREAM; 

■ } 
else { 

■ »if def FILTER.BITS_WORKIHG 

return bits2ch[bits2bits [getFilterBits (id) ] ] ; 
ffelss 

return 0; 
«eiidif 
> 



boolaan isSubspaceDbj (spld id) { 
spid cid = getClass(id) ; 

if (subclass (cid. spcHicrophone)) return TRUE; 
/* we don't want everyone, especially spaudio, to 

always have all of the speakers */ 
if (subclass Cc id, spcSpaaker)) return FALSE; 
if (subclass (cid, spcBeacon)) return TRUE; 
if (subclass (cid, spcLocaleLink) ) return TRUE; 
return FALSE; 



apid localeOf (spld id) { 
spld p; 

for (p=id; p; p=get Parent (p)) { 

if (subclass(getClass(p) , spcLocaleLink)) return p 

return NULL; 



spLocale local eldOf (spld id) { 
if (id == NULL) return NOLOCALE; 
return getLocaleld(id) ; 

} 

. boolean myNeighbor (spLocale ne, spLocale neighbor) { 
int n; 

for (n=0; n<lfdCine3 .nuaiNeighbors; n++) { 

if (Ifd [me] .neighbors [n]->localeId == neighbor) { 
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<• return TRUE; 

> 

> 

raturn FALSE; 

'■ly 

: spTMatrijt ^matrixFronToCspLocale from, spLocale to) { 
\i int n; 

for (n=0; n<lfd[f rom] .numNeighbors ; n++) { 

if (If d [from] .neighbors [n]->localeId == to) { 
ret;irn &(lfd [from] .neighbors [n]->tran8form) ; 

. } 

return HULL; 

i'> 

'< int MCopen(a. short port, boolean send, boolean wantloop, int ttl) { 
int fd; 
int on » 1; 
u.char loop 0; 
u.char ttl_uc = ttl; 
struct in.addr ifaddr; 

/* here is based on IRIX alloving 200 fd's per process ♦/ 
if (fdcnt > 125) < 
int i; 

int earliest = INT.MAX; 
int oneToClose = -1; 

for (i=0; KTOTALLOCALES ; i++) { 

if CdfdCi] .loopOut II IfdCi] .imloopOut) 
, 4& IfdCi] .lastsend < earliest) { 
earliest = lfd[i] .lastsend; 
oneToClose = i; 
> 

> 

if (assert (oneToClose >= 0)) < 

ZZ(LOCALE) zprintf ("Closing down locale Ox!li\n", oneToClose); 

if (Ifd [oneToClose] .loopOut) < 
closedfd [oneToClose] .loopOut) ; 
Ifd [oneToClose] .loopOut = 0; 
fdcnt — ; 

> 

if (Ifd [oneToClose] .unloopOut) { 
close(lfd[oneToClose] .unloopOut) ; 
Ifd [oneToClose] .unloopOut = 0; 
fdcnt--; 

> 

> 

> 

assert((fd • socket (AF.INET, SOCK.DGRAM, 0)) > 0); 
if (send) { 

zero(setsockopt(fd, IPPROTO.IP, IP.MULTICAST.TTL, 

tttl_uc, sizeof (ttl.uc))); 

/* 

* Turn looping off if packets should not go back to the sane host. 

* This means that multiple instances of this program will not 

* receive packets from each other. 

if (Iwantloop) { 

zero (set sockoptCfd, IPPROTO.IP, IP_MULTICAST_LOOP. 
ftloop. sizeof (loop))) ; 

> 

> 

else { /* receive ♦/ 
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Struct sockaddr.in addr; 

addr.sin.family » AF.INET; 
addr.sin.addr.s.addr = htonl (INADDR.ANY) ; 
addr . sin.port = htoiifi(port) ; 

/* use th« default interface */ 
ifaddr.s_addr = htonl CiNADDR.ANY) ; 

/* 

* Allow multiple instances of this prograjii to listen on the sane 

* port on the sane host. By default, only t program can bind 

* to the port on a host . 
*/ 

zero(sQtsockoptCfd, SOL.SOCKET, SO_REUSEP0RT, icon, sizeof (on))) ; 
zeroCbindCfd, ftaddr, sizeof (struct sockaddr.in))) ; 

#if 0 

signalCSIGIO, siginput) ; 

/* allow us to receive SIGIO signals for this fd */ 
assertCfcntlCfd, F.SETOWN, getpidO) >= 0); 
/* turn on SIGIO signals for this fd ♦/ 
assertCfcntKfd, F.SETFL, FASYWC) >= 0); 
# end if 
> 

/* non-blocking */ 

assert(fcntl(fd, F.SETFL, FNDELAY) !- -1); 
fdcat++; 

if (fd > mazfd) maxfd = fd; 

ZZZ(LOCALE) 2printf('7.d %s on '/,d\n", fd, 

(send) ? "sending" : "receiving", port); 
return fd; 



void MCcr eat eaddress (struct sockaddr.in *addr6ss. unsigned group) { 
assert (IN_MULTICAST (group) ) ; 

bzeroC(char *) address, sizeof (struct sockaddr^in) ) ; 

address->sin_fanily = AF.INET; 

ad dr es s-> sin. addr. s_ addr = ht onlC group ) ; 



struct sockaddr.in *MCset addr (struct sockaddr.in *address, 
unsigned group, u. short port) { 
assert (IN.MULTICAST (group) ) ; 
address-> sin. addr, s. addr ~ htonl (group) ; 
address->sin.port = htons(port); 
return address; 



void MCjoin(int fd, unsigned group) { 
struct ip_iiireq mreq; 
struct in.addr if addr; 
struct in.addr grpaddr; 

grpaddr . s_addr = htonl (group) ; 
assert (IN_MULTI CAST (grpaddr . s.addr) ) ; 
ifaddr.s.addr - htonl (IKADDR. ANY) ; 
mreq. iinr_multi addr = grpaddr; 
mreq. inr_ inter face » if addr; 

zero(setsockopt(fd, IPPROTO.IP, IP.ADD.MEMBERSHIP, 
&mreq , sizeof (mreq) ) ) ; 

ZZZ(LOCALE) zprintf ("lid joining /,08xW , fd, group); 



void MCleave(int fd, unsigned group) { 
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struct ip_mreq inreq; 
struct in.addr ifaddr; 
struct iti_addr grpaddr; 

grpaddr.s.addr » htonl (group) ; 
a.ssert(IN_MULTICAST(grpaddr.3_addr)) ; 
ifaddr. a.addr - htonl ( INADDR.ANY) ; 
mreq. imr_multiaddr " grpaddr; 
nreq. imr_ interface = ifaddr; 

2erD(setsockopt(fd, IPPROTO.IP, I P. DROP .MEMBERSHIP, 
itnreq. sizeof (mreq))) ; 

Z2Z(L0CALE) zprintf("Xd leaving )i08x\n", fd, group); 



static void init Stats (Statistics *3tats) { 

statB->packets = stats->byte3 = stats->tiraingbytes = 

stats->smallbytes = stats->5inallpeak ~ 0; 
stats->txmingtinie = stats->sinalltinie = GetT() ; 

> 

»def ine SMALLTIME SO /♦ msec */ 

^define RATECstats, sbytes, stirae) ((8*1000*( (stats) ->bytes - sbytes)/(now - 
static void doStats (Statistics *stats. Message 't'msg) { 

if (stats == NULL) return; 

stats->packets++; 

stats->bytes += insg->MsgLength; 

ZZ(NET) < 

TimeStamp now « GetTO; 

if (now - atats->siiialltiffi6 > SMALLTIME) { 

long load RATE(stats, stat3->siRallbytes, stats->snialltime) ; 

if (load > stats->smallpeak) stats->smallpeak ^ load; 
stats->s!nallbyt6s = stats->bytes ; 
stats->smaHtam6 « now; 

> 

if (now - stats-Himingtimo > 1000) { 

zprintfC'/s '/d packets, 5tdk bits/sec average, */,dk bits/sec peak\n" » 
8tats->code, 8tats->packots , RAT£(statB, etats->timingbyt«s , 

stat8->tiiningtirae) , stat6->Enallpeak) ; 
stats->packets * 0 ; 
stats ->timingbyt 08 = Btats->byteB; 
stats->timingtine = now; 
statB->smallpeak = 0; 

} 

> 

2ZZZ(NET) { 

printf ("iia'/.d stats->code, msg->MsgLength) ; 
f flush ( St dout) ; 

> 

} 

#undef RATE 

void MCwrite(int fd, struct sockaddr.in ^address. Message ♦msg) { 
if (! assert (address != NULL kk msg != NULL)) { 
zwamC'Can't write, null arguiaeat(s)\n") ; 
return; 

> 

if (thisproc->fakePartner) toggleMaines((spId)msg) ; 
assert (msg->MsgLengtli<LONGESTMSG) ; 
assert (sendto(fd, (char *)msg, msg->MsgLength, 0, 
address, sizeof (struct sockaddr.in)) >= 0); 
/* must be sure to fix them up too. ♦/ 
if (thisproc->f akePartner) toggleNames((spId)insg) ; 



static char msgtodxop [LONGESTMSG] ; 
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; int MCread(int fd, char ^message, int len) { 
■j int cnt; 

if (messag© == NULL) { 
J message - nsgtodrop; 
[ lea = sizeof (msgtodrop) ; 
\. ZZ(NET) zprintf ("Dropping rasgAn"); 

assertCCcnt = recv(fd, message, len» 0)) >= 0); 
return (message « msgtodrop) ? BUFFEBFULL : cnt; 

static boolean localeInWM(spId locale, void *locinfo) { 
;| Localelnfo *loc ^ (Localelnfo *) locinfo; 

if (get Local eld (locale) == loc->lid) { 

inf ormNetworkLocalel3Ready(loc->lid, locale); 
return TRUE; 

■ > 

return FALSE; 

;> 

/♦ this adds a locale to the list of locales that aore 

being listened to */ 
static void addLocale(spLocale lid) { 

Localelnfo ♦loc; 

long i; 

if (lid « NOLQCALE) return; 
if (Ifd [lid] .index >= 0) { 

/♦ locale already in table */ 

return; 

> 

if (localecnt « MAXLOCALES) { 

2tfarn("Locale space is full; ignoring new locale '/,d\n" , lid); 
return; 

> 

Ifd [lid] .index = localecnt++; 
loc = localestlfdClid] .index] ; 

Z(LQCALE) zprintf ("Creating locale OxXx in slot */.d\n", lid. If d [lid] . index) 
assertdid >= 0 ftft lid 255) ; 
loc->lid = lid; 
loc->pov = NULL; 

for (i=0; KCHAKNELS. PER. LOCALE; i++) { 

loc->self POVCount ti] = loc->totalPOVCotmt [i] - 0; 

> 

spExaminoWorldModeKspcLocaleLink, localelnWM, (void*)loc); 
return; 



static int f indLocalG(spLocal6 lid) { 
if (lid == NOLOCALE) return -1; 
addLocale(lid) ; 
return If d [lid] . index; 



static void removcLocaleCloag i) { 
Localelnfo ♦loc ■ locales [i]; 

Z(LOCALE) zprintf ("Removing locale Ox'/.x\n"» loc->lid) ; 
If d[loc->lid] .index - -1; 

if (graph icsHemoveLocaleHook ! « NULL) 
graph icsRemov«LocaleHook( loc -> lid) ; 

if (loc->pov) { 

setParent (loc->pov, MULL); 
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> 

local ecnt — ; 

if (objfdsCil.fd) < 
closeCobjfdsCij .fd); 
fdcnt— ; 

> 

objfdsCij.fd = objfdsClocalecnt] .fd; 
objfdsClocalecnt] .fd = 0; 

if (audiofdsCi] .fd) < 
close (audi of dsCl] .fd); 
fdcnt—; 

> 

audiofdsCi] .fd = audiofdsClocalecnt] .f d; 
audiofds[localoczit] .fd = 0; 

if (textfds[i] .fd) < 
closeCtextfdsCi] .fd); 
fdcnt— ; 

> 

textfdsCiJ.fd = textf ds [localecnt] .f d; 
textfdsClocalocnt] .f d = 0; 

if (i < localGcnt) { 

localesCi] = locales [localecnt] ; 

locales [localecnt] = loc; 

If d [locales [i3->l id] . index = i; 

> 

> 

static void modifyChannel(int lindex, int type, boolean add, boolean self) -C 
struct pollfd *fds; 
Localelnfo *loc; 

if (lindex -1) return; 
loc e locales [lindex] ; 
assert (type >* 0) ; 
if (type < OBJECT. CHANNELS) < 
fds = objfds; 

> 

else if (type AUDIO.STREAM) < 
fds = audiofds; 

> 

else if (type == TEXT.STREAM) i 
fds - textfds; 

> 

else { 

zwamC'Bad type.Nn'*); 
return; 

} 

if (add) < 

if (self) loc->selfPOVCo\int[type]++; 
if (loc->tctalP0VCcunt[type]4+ == 0) { 
if (fds [lindex] .fd " 0) < 
fds [lindex] .fd * MCopen(localePort Cloc->lid, type), FALSE, FALSE, ttl) ; 
fds [lindex] .event a » POLLINj 
> 

MCjoin(fds [lindex] .fd, localeAddr (loc->lid, type)); 

> 

else { 

if (self) loc->selfPOVCotint[type] — ; 
if (~loc->totalPOVCount [type] »= 0) { 

MCleave(fdB [lindex] .fd, localeAddr(loc->lid, type)); 
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> 

> 

3:ZZ(LDCALE) zprintfC'/s Xs count (y,d/y.d) . type /.d, " 
'•locale OiXxNn", 
(add) ? : 

(self) ? "self" : "neighbor", 

loc->solfPOVCouiit[type] , loc->totalPOVCount [type] , 
type, loc->lid) ; 
if (! assert Cloc->selfPOVCoimt [type] >= 0)) < 
loc->selfPOVCount [type) = 0; 

> 

if (! assert (loc->totalPOVCount [type] >= 0)) { 
loc->totalPOVCount [type] = Oj 

> 



static void cons iderRenoval (void) { 
int lindex - 0; 

while (lindex < localecnt) { 

Localelnfo *loc * loc&les[llndex] ; 
iat i; 

boolean toss - TRUE; 



for (i«0; toss && i<CHANNELS_PER_LOCALE; i++) { 
if (loc->totalPOVCount[i]) toss = FALSE; 

> 

if (toss) renioveLocale(liiidez) ; /* decrements localecnt +/ 
' else lindex++; 

' > 

; } 

I /♦ add or drop the type channel from all the neighbors of locale */ 
! static void nodlf yNeighbors(spLocale lid. int type, boolean add) { 
int a; 

for (n=0; n<lfd[lid] .numWeighbors; n++) { 

raodifyChannelCf indLocale(lfd[lid] . neighbors [n]->local eld) , 
type, add, NEIGHBOR) ; 
> 

: } 

: /* in all neighbors of the locale, add whatever channels this 
locale is listening to */ 
static void addNeighbors(spLocale lid) { 
int n; 
int type; 

int lindex = If d [lid] .index; 
Localelnfo *loc = locales [lindex] ; 

assertClindex != -1); 

for (n=0; n<lfd[lid] .numNeighbors; n++) { 

for (type=0; type<CHANNELS_PER_LOCALE; type++) < 
if (loc->3elfP0VCount[type] > 0) { • 
modifyChannel(findLocale(lfd[lid] .neighbors [n] ->locoleId) , 
type, ADD, NEIGHBOR); 
} 

> 

> 

> 

. /♦ Called when a locale enters the world model 

and when a locale is added to the list of active locales. 
Starts listening in the neighbors, as needed. ♦/ 
void infoniiNet«orkLocaleIsReady(spLocale localeld. spid id) { 
int lindex; 
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/* locale already known to us */ 

if ClfdClocaleld] .nuniNeighbors ?= 0) return; 

If dClocaloId] .nimNeighbors = gGtLocaleNumNeighborsCid) ; 

If dClocaleld] .neighbors « (struct LocaleNeighbor **)getLinkData(id) ; 

lindox = lfd[localoId] .index; 
if (lindex -1) return; 

/* vo are listening, so consider adding in neighbors */ 
addNeighbors(localeld) ; 

if (locales [lindex] ->pov Aft getParent (locales [lindex] ->pov) == NULL) < 
satParent (locales [lindex] ->pov , id) ; 

} 



/♦ send out a spid */ 

void iietvorkSend(spId id) -C 

int chan ■ msgType (id) ; 

unsigned addr; 

u.short port; 

int fd; 

Statistics ♦stats; 

int lid » getLocaleld(id) ; 

considerRemovalO ; 

if (lid =- NOLOCALE) return; 

if (isSubspaceObj (id)) < 
addr = subspaceaddr; 
port = subspacePortO ; 
fd ' subspaceout; 
stats - ftsubspaceStatsOut ; 

> 

else { 

addr = localeAddr(lid, chan); 

port = localePortdid, chan); 

If d [lid] .last send = thisproc->win->vmtiiae; 

/* here looping should be determined by the caller ♦/ 

if (chan == AUDIO.STTIEAM ftt !ZTEST(L00PAin)IO, 1)) { 

if (lfd[lld] .unloopOut 0) { 
lfd[lid] .unloopOut = MCopen(port, TRUE, FALSE, ttl) ; 

> 

fd = Ifd [lid] .unloopOut; 
stats = ftunloopStats [chan] ; 

> 

else < 

if (lfd[lid].loopOut == 0) { 
lfd[lid] .loopOut = MCopen(port, TRUE. TRUE, ttl); 
> 

fd * lfd[lid].loopOut; 
stats = ftloopStats [chan] ; 

> 

} 

3etMsgSendTinie(id. GetT()); 
if (getMsgNeeded(id)) < 

setTiineOfUpdate(id, thi5proc->viD->vmtime) ; 

setMessagesSinceUpdatedd, 1); 

> 

else {, 

se t Mess ages SinceUpdate( id. getHBSsagesSinceUpdate(id)+l) ; 

> 

if (subclass (get Clas 8 ( id) . spcBeacon)) { 
sotBeaconLocaleId(id, localeldOf (id)) ; 
/♦ here is a hack */ 

setBeaconMulticastPort(id, addr ft Oxff ffff f 0) ; 

> 
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ZZZ(QBJ) zprintf ("sending obj <Ox5S08i-y»s) to '/,08x/'/,d\n" , 
i id^ getClzLSsNaiDe(getCIass(id)) , addr» port); 
; setMsgAddrCid, addr) ; 

:[ MCwrite(fd» KCsetaddrCftoutgoing, addr, port), (Messeige '*')id): 

doStatsCstats, (Message *) id) ; 
; ZZZ(NET) zprintf ("sent obj (Ox*/08x-Xs) to •/.08x/y.d\n" , 
id, getClassNaiae(getClass(id)) , addr, port); 



■static int typeFromAddrC unsigned addr) { 
/* here temporary ♦/ 
return (addr k Oxf ) ; 

J«define MAXLOST 100 
; struct lostmsg { 
unsigned addr; 
unsigned sender; 
int coixnt; 
int t/po; 
} 1 OS tmsgs [MAXLOST] ; 
int lo stent = 0; 

static void reportlost (void) { 
I static unsigned lastvarning - 0; 

i spDuration d = TDelta(thi8proc->win->wmtime, lastwaming); 
uid.t uid; 
struct passvd *pwd; 
struct in.addr address; 
struct hostent *hast; 
struct Xostm^ *lo6t ; 
int i; 

/* for each source of wayward msgs, give one warning per minute */ 
if (d < 0 I ! d > 60000) { 
if (badversion > 0) { 

zprintf ("Rejected %d packets with wrong version number. \n'*, badversion) 

badversion = 0; 

> 

lastwarning = thisproc->wm->wintime; 
for (i=0; i<lostcnt; i++) { 
lost = ftlostmsgs [i] ; 
if (lost->count > 0) { 
:Uid * (lost->addr»16) - (225«8) ; 
pwd = getpwuid(uid) ; 
address. s_addr = htonl (lost->sender) ; 
.host = get ho stbyaddrCft address, sizeof (struct in.addr), AF_INET) ; 
errno = 0; 

zprintf ("Ignored */d type»Xd nsg(s) from locale'/d.y,s(D/,s\n", 
lost->count, last->type, (lost->addrftOxf f 00)»8, 
(pwd) ? pwd->pw.naae : "unknown" , 
(host) ? host->h.najiie : "unknown"); 
. lost->co\int » 0; 
> 

> 

> 

> 

'. static void nQtuorkReceive(Hessage »insg, Localelnfo *loc) { 
unsigned addr e msg->MsgAddr ; 
int type = typoFromAddr (addr) ; 
boolean found = FALSE; 
struct lostmsg *lo6t ; 
int i; 

if (msg->MsgCode != SPLINEVERSION) < 
; badversion++ ; 
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else if (addr subspacGaddr) { 

est imateTlmeDelay (msg) ; 

doStatsCfesubspaceStatsIn, nsg) ; 

procassObjMsg(msg) ; 

Z(OBJ) checkClassQsO ; 
i ZCLOCALE) notworkAuditO ; 
i } 

elso if ((addr ft OxffffOOOO) != baseaddr il loc == NULL 
I I loc->totalPOVCount [type] == 0) < 
for (i«0; i<lostcnt; i++) { 
lost ^ ftlostnsgs[i] ; 

if (addr lost->addr ftft nisg->MsgSender — lost->sender) -( 
; found = TRUE; 
' lo8t->count++; 
break; 

> 

> 

if (Ifound) { 

if (lostcnt < MAXLDST-1) { 
lost * <tlootDiags[lostciit++] ; 
lost->type = type; 
' lost->addr - addr; 

lost-> sender msg->M5gSender ; 
■ lost->count = 0; 
> 

> 

} 

alsa { 

if (type >= 0 type < OBJECT.CHAMNELS) { 
estinateTimeDelaydnsg) ; 
doStats(ftreadStats [type] . msg) ; 
processObjMsg(mag) ; 
Z(OBJ) checkClaasesO ; 
Z(LOCALE) networkAuditO ; 

} 

/* Here this is not really right, because msgs may be very old 
else if (type == AUDIQ.STREAM) { 

/4c if doing some internal testings leave times alone! ^/ 

if ( ItestingSound) estiraateTimeDelay (msg) ; 

doStats(ftread5tats [type] , nsg) ; 

handloSourceActionNsg((spId) msg); 

> 

else -( 

zwam("Can*t deliver msg to Oxy,08x\n", addr); 

> 

Z(NET) reportlostO : 

> 

typeddf unsigned *usp ; 

static int processMsgs (struct pollfd *fds, int fdcnt, int mai) { 
int cnt; 
long lindex; 
char msgCLONGESTMSG] ; 
int n = 0; 

do { 

if (!assert((cnt - poll(fds, fdcnt, 0)) >= 0)) { 
zwarn("poll returned )Cd\n", fdsCO] .r events) ; 

} 

if (cnt > 0) < 

for (lindex=0; lindex<fdcnt ; lindex++) { 
if (fds [lindex] .fd != 0 kk fds [lindex] . revents ft POLLIN) < 
if (MCr ead(fds[l index] .fd» msg, LONGESTMSG) > 0) { 
networkReceive( (Message *)iftsg, locales [lindex] ) : 
n++; 
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if (milx > 0 ft& n >■ max) return n; 

> 

} 

} 

} while (cat > 0); 
return n; 



static int max = 100; 

void procassIncomingMsgs(void) { 
int s; 

static int in_a_row = 0; 

n =■ processMsgsCobjlds , localecnt, max); 
if CsubspacefdCo] .fd > 0) 

s = processMsgsCsubspacefd, 1, max); 
else s 3 0; 

ZZZZ(LOCALE) if (n+s > 0) zprintf ("5Cd/liid msgs processedXn", n, s) ; 
/♦ try to smooth out message receipt so big waves of msgs 

get spread over several frames, but if we just aren't getting 
them all after 6 frames ^ process then all 
if (n max I I s == max) { 
if <++in.a.rou > 1) { 

n e processMsgsCobjfds , localecnt> 0); 
s = processMsgsCsubspacofd, 1, 0); 
in.a.row = 0; 
max += 2; 

Z(NET) zprintf ("Bunping max msgs per frame to V,d (Xd + '/.d loft over 
max, n, s) ; 

> 

> else in.a.row = 0; 



/* This processes any pending sound messages. It adds in extra 
latency to wait until you need the data before processing any 
messages, but it means ve do not have to have a separate thread. 
We will do something better later.*/ 

void procossPendingSoundMsgs{void) { 
processMsgs(audiof da , localecnt^ O) ; 

> 

short bits2chaii( short bits) { 
int i; 

short chan = 0; 

zero (bits ft "Oxf) ; 
/♦ these bits must be on */ 
bits = bits2bits[bit8 4 Oxf]; 
for (i=0; i< OBJECT, CHANNELS; i++) { 
int channel = i2ch[i]; 

if (channel ft bits == channel) chan 1= (1 « i); 

> 

/» here we temporarily turn them all on until the tag bits are correct * 
«ifndef FILTER.BITS.WORKING 

chan ° 1 ; 
#endif 

return chan; 



static boolean parentPOVCspId locale, void *data) < 
Localelnfo *loc = (Localelnfo *) data; 

if (getLocaleld(locale) == loc->lid) { 
sotParent (loc->pov, locale); 



- 26 - 



04/11/2004, EAST Version: 1.4.1 



5,842,216 

39 



40 



return TRUE; 

> 

return FALSE; 

> 

static void iaodlfyListener(spId pov, short nevbits^ 
spLocale locale, boolean new) { 
int 1 index; 
short oldbits; 
short cheinges; 
int i; 

Localelnfo ♦loc; 

if CcheckldCpov, spcBeacon. FALSE)) return; 

if (locale « MOLOCALE) locale * localeldOf (pov) ; 

lindex = findLocale (locale ) ; 

if (lindex < 0) { 

zwarnCTrying to listen to nothing. \n") ; 

return; 

> 

loc « localesClindex] ; 
if (loOpov « MULL) < 

loc->pov = spMake(spcPOV) ; 

sotBoaconPort (loc->pov, -1); 

setLocaleId(loc->pov, NOLOCALE); 

> 

if (get Parent (loc->pov) == NULL) { 

spExamineWorldModeKspcLocaleLink, parentPOV, loc); 

> 

oldbits = (new) ? 0 : getListoaiiiigBitsCpov) ; 
changes = oldbits * newbits; 
fletListeningBitfi(pov , newbits); 

if (lindex !* -1) { 

for (i-0; KCHANKELS.PER.LDCALE; i++) { 
if (changes ft (1 « i)) < 
mod if yChannel (lindex, i, newbits ft (1 « i), SELF); 
modif yNeighbors(loc->lid, i, newbits ft (1 << i)); 
} 

> 

} 

> 

/* here listen really shoiild check if this pov has a parent 
that is a pov owned by another process, and listen on 
that pov as well. Furthermore, whenever a parent is set, 
ve need to test if this condition is either being 
created or removed and either listen or stop listening 
on that other pov. */ 

void spListen(spId pov) < 
modif yListener (pov » 
bits2chaii(getTagFilterBits(pov)) 
: I (getListeningBits(pov) ft (AUDIO.MASK | TEXT.MASK)), 
NDLDCALE, FALSE); 

: > 

• void spStopListening(spId pov) { 

modif ylistener (pov, gotListeningBits(pov) ft (AUDIO MASK I TEXT MASK), 
NOLOCALE, FALSE); 

> 

void spListesForAudioStreans Cspid pov) -( 

modifyListener(pov, gotListaningBits(pov) I AUDIO.MASK, NOLOCALE, FALSE); 
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i void stopAudioStreamsCspId pov) { 

i modifyListenerCpov, getListeningBitsCpov) ft 'AUDIO.MASK, NDLOCALE, FALSE); 

|> 

. void spListeiiForTextStreaas(spId pov) { 

modifyListenerCpov, gatListeningBits(pov) I TEXT.MASK, NOLOCALE, FALSE); 

; void stopTextStreaiDs(spId pov) < 

modifyListenerCpov, getListeningBits(pov) k "TEXT.MASK, NOLOCALE, FALSE); 

;> 

: void stopAllLlsteningCspId pov) { 

- if CgetListoningBiteCpov) && OBJECT.MASK) spStopListening(pov) ; 
if (gatList«ningBite(pov) Aft AUDIO_MASK) stopAudioStreains(pov) ; 
if (getLieteningBite(pov) A& TEXT.MASK) st opText Streams (pov ) ; 

: static void openSubspace (unsigned int hostniim) { 
if (subspacefd[0] .fd 0) < 

subspacefdCO] .fd - MCopenCsubspacePort () , FALSE, FALSE, ttl) ; 
subspacef d [O] .events » POLLIN; 
MCjoin(subspacefd[0] .fd, subspaceaddr) ; 

} 

} 

: void 3pListenForBeacon(spId beacon) { 
OpenSubspace CgetBeaconHost (beacon) ) ; 
return; 

> 

void spListenForBeacoiis(spHost hostNum) { 
openSubspace CbostNuin) ; 
return; 

} 

int self [TDTALLOCALES] [CHANNELS. PER, LOCALE] ; 
int total CTOTALLQCALES] [CHANNELS _PER_L0CALE3 ; 

static boolean computeCount (spid pov, void *ignore) { 
int listening = getListeningBits(pov) ; 
spLocale lid; 
int n, type; 

if Cliatening) < 

for Ctype=0; type<CHANNELS_PER_LOCALE; type++) { 
if (listening & (1 « typo)) { 
■ lid = localeldOf Cpov); 
•if (lid != NOLOCALE) { 
self [lid] Ctype]++; 
total [lid] Ctypa]+4; 

for (n-0; n<lf d [lid] .numNoighbors; n++) { 

total [If d [lid] . neighbors [n] ->localeId] [type] ++ ; 

> 

: > 
> 

> 

return FALSE; 

'} 

void networkAudit (void) "C 
int count ■ 0; 
int i, type; 

for (i-0; KTOTALLOCALES; i++) i 

for (type=0; type<CHANNELS.PER.LOCALE; type++) { 
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self [i] [type] " total Ci] [type] 0; 

> 

1 > 

spEiamineWorldModeKspcPQV, computeCoimt , HULL) ; 

.'■ for (i>»0; i<TOTALLOCALES; { 
int any = 0; 
int counted - 0; 

'i for (type=0; type<CHANNELS.PER.LOCALE; type++) { 
i if (self [i] [type]) { 

! assert(lfd[i] .index != NQLOCALE) : 

;! assert(self ti] [type] ~ locales [If d[i3 . index] -> self POVCount [type]) ; 
any++; 

: } 

if Ctotal[i] [type]) { 
; assert (If d[i] .index != NOLOCALE) ; 

: assert (tot alCl] [type] locales[lf d [i] .index] ->totalPDVCouiit [type] ) ; 

any++; 
i if (} counted) { 
:! count ++; 
counted++; 

;> 

> 

: > 

if (!any) { 

for (type=0; type<CHANNELS_PER.LOCALE; type++) < 
; if (lfd[i]. index != NOLOCALE) < 

assert (locales [If d[i] .index] ->solf POVCount [type] == 0); 
assert (locales [If d[i] .index] ->totalPOVCount [type] ==0); 

> 

> 

> 

if (lfd[i] .index -1) < 
assert (! any) ; 

else { 

if (lfd[i] .index < localecnt) { 
assert (locales [If d[i] .index] ->lid i); 

^: > 

■: > 
} 

assert(count localecnt); 

for (i-0; i<localecnt; i++) { 
if (locales[i]->pov) { 

assert ((getParent (locales [i]->pov) == NULL) II 
getLocaleId(locales[i]->pov) == locales [i] ->lid) ; 

> 

> 

^ > 

. spLocale lookingfor = -2; 

: static void incUnsatisfied( spLocale lid) { 
if (lookingfor =- -2) lookingfor = lid; 
else { 

if (lid != lookingfor) lookingfor = -1; 

if (thisproc->wni->oldestUnsatisf ied == 0) { 

thisproc->wm->oldestUnsatisf ied = tliifiproc->tfm->wntiine ; 

thisproc->wio->n6w«stUnsatisf ied = thisproc->inn->«mtiitio; 

> 

/♦ find if we have the locale, or any of its neighbors */ 
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static boolean dopovCapId locale, void *data) { I 
spLocale nevlid - (apLocale) data; ] 
int lid « getLocaleld(locale) ; ; 

if (lid " newlid) { ^ 
this process has information about that locale *i 
incUasatisf ied(nevlid) ; 
retura TRUE; 

> 

else { 

int nn - getLocaleNuniNeighbors (locale) ; 

struct LocaleNeighbor **N = (struct Local eNeighbor **)getLinkDat a (locale) % 
int n; 



for (ri=0; n<nn; n++) { 

if (N[n3*>localeId « newlid) { 
incUnsatisfied (newlid) ; 
return FALSE; 

} 

> 

> 

return FALSE; 

> 



/* This is called when POVs from other processes change their locale. 
Wa are responsible for sending any objects we have that are 
in that locale or its neighbors. */ 
extern void POVEnteringFrom(spLocale newlid, spLocale oldlid) 'C 
/* the POV is lost; we should broadcast now */ 
if (newlid -» NOLOCALE) < 
incUnsatisf ied(newlid) ; 
return; 

> 

/* we are listening in that locale; assume we have something 
if (If d [newlid] .index NOLOCALE) { 

incUnsatisf ied(nevlid) ; 

return; 

> 

spExamineWorldModeKspcLocaleLink, dopov, (void ♦) newlid); 

/* If this pov is a descendant of an object changing locales, 
then we need to stop listening wherever it was listening, 
and start listening wherever it is moving to. */ 
boolean relocatePOV(spId pov, void *reparent) { 
int listening =» getLi3teningBlts(pov) ; 
struct reparent *reloc = (struct reparent *)reparent; 
extern boolean spDescendant(spId child, spid parent); 
boolean shouldconsider = FALSE: 

if (spOescendant (pov, reloc->child)) { 
if (listening) < 

if (reloc->oldl \- NOLOCALE) { 
/* stop listening through this pov in the old locale */ 
modifyListener(pov , 0, r6loc->oldl, FALSE); 
shouldconsider = TRUE; 
> 

if (reloc->newl != NOLOCALE) { 
/* add the effect of listening through this pov 

to the new locale */ 
modifyListener (pov, listening, reloc->newl, TRUE); 

> 

/* toll the graphics to switch models */ 
if (graphicsChangoLocaloHook != NULL) { 
graphicsChazLgeLocaleHook(pov, reloc) ; 
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} 

/♦ May be able to gc some old locales. 

We waited because the new locale probably neighbors many 
of the same locales, and ve don't want to thrash them 
in and out. */ 

if (shouldconsider) considerfleniovalO ; 

: > 

return FALSE; 

;■/* If present, SPLINEADDRESS is used as the multicast base address, 
•i Else SPLINENAME (must be a userid) is used to compute it. 
*/ 

: ' vo i d networklnit () { 

char *address = getenv ("SPLINEADDRESS") ; 
char *name = getenv ( "SPLINENAME" ) ; 
char *ttls « gotenv("SPLINETTL"); 
char *portstr = getenvC'SPLINEPOKT**) ; 
char group [32] ; 
uid_t uid = 0; 
long i; 

assert (LOCALE = zregister ("locale" , "Iccalo")); 

if (portstr != NULL) { 

spBasePort = (u short) atoi (portstr) ; 

> 

if (address != NULL) atrcpy(group, address); 
else { 

if (name *• NULL) uid • getuidO ; 
else •( 

struct passwd ♦pwd « getpwnam(name) ; 

if (pwd) uid - pwd->pw.uid; 
else i 

zwarnC'Bad SPLINENAME: %3 , using session 0.\n", name); 
> 

> 

sprintf (group, "y.ld.Xld.O.O" , 225+((uid k OxffOO) » 8), uid & Oxff) 

> 

baseaddr ~ inet _addr (group ) ; 

2(MET) zprintf ("Network base address is Ox'/.OSxNn". baseaddr); 

assert ((baseaddr & Oxffff) == 0); 

assert (IN_MULTI CAST (baseaddr) ) : 

ttl = (ttls == NULL) ? DEFAULT.TTL : atoi(ttls); 

subspacefdCO] .f d = 0; 

subspaceout « MCopen(siibspacePort() , TRUE, TRUE, ttl); 
for (i=0; i<MAXLQCALES ; i++) < 

localesCi] = (Localelnfo *)mallocCsizeof (Localelnfo)) ; 

objfds[i].fd = audiofdsCi] .fd = textf dsCi] .fd - 0; 

> 

for (i=0; i<TOTALLO GALES; i++) { 
If d[i]. index = -1; 
IfdCi] .loopOut = 0; 
IfdCi] .unloopOut =» 0; 



for (i=0; i<CHANNELS_PER_LOCALE; i++) { 
initStats (AreadStats [i] ) ; 
initStats(AloopStatsCi] ) ; 
initStats (AunloopStats [i] ) ; 



thiBproc->wm->oldestUnsati8f ied " 0; 
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i subspaceaddr • baseaddr I Oxffff ; 

/* the actual address will be filled in later */ 
MCcreateaddressCftoutgoing, subspaceaddr) ; 

/* force everyone to listen */ 
;■ spList©nForBeacons(spDisplayHost ()) ; 

;.> 

J /» TIMING V 

tdefine MAXSPLINES 20 

i; struct NetDelaylttfo < 
.' long int sender; 
Delay Info delay Info; 

':>; 

p struct NetDelaylnfo netDelays [MAXSPLINES] ; 
\\ int netOelaysIndez « 0; 

|: Dalaylnfo * netDelayOf (long sender) i 
int i; 

for (i=0; i<netDelaysInd6x; { 
i. if (netDelays [i] . sender sender) return ftnetDelays [i] .delayinf o; 

j; return NULL; 

!:> 

jj /* This is used to shift all the times in an object to adjust then to 
take account of message transit times and clock differences between 
machines. Note this decoding operation is not idempotent. You must 

>' be careful not to call it tvice on the sajne message. */ 

1 1 /* here these two could be unified more cleanly */ 

\] int shiftAllTimes (Message *id, TimeStaup delta) { 
W int i; 

TimeStamp * timeptr; 

spid class; 

for (class - lookup(id->Class) ; class; class = getSuperclass (class) ) { 
i; for (i = getClassNumFields (class)- 1; i >= 0; i — ) { 

if (fieldTIKE ft getClassFields (class) [i] .properties) { 
II timePtr = (TimeStamp ♦)((char »)id + getClassFields(class) [i] .of fset) ; 

*timePtr = TPlus(*tiinePtr, delta); 
■= > 
> 

;. } 

; return 0; 

j; int shiftTimes (Message *id, TimeStamp delta) { 
\- int i; 

; TimeStamp * timePtr; 
; spId class; 

for (class = lookup (id- >Class) ; class; class = getSuperclass (class) ) { 
for (i = getClassNumFields (class)-l; i >= 0; i — ) < 

if (fieldTIME ft getClassFields (class) [i] .properties ft* 
((fieldLOCAL ft getClas3Fields(class) [i] .properties) ) i 
: timeptr = (TimeStamp *)((char *)id + g6tClassFields(class) [i] .of f set) ; 
: • *timePtr = TPlus(*tiinoPtr» dolta) ; 
> 

> 

> 

return 0; 

: > 
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/♦ This assumes the msg ia a message describing some object. To get 
time adjustments right, we also assume that this is called on EVERY 
incoming message and that nobody ever looks at a time until correct 
adjustment has been made. */ 

/♦ HERE WE ARE ASSUMING THAT ALL MACHINES ARE SYNCHORNIZED IN TIME 
WITHIN A FEW TENS OF MINUTES SINCE TimeOf Update IS NOT A 'TIME' 
FIELD THAT GETS SYNCHRONIZED ON! */ 



int est imateTimeDelay (Message *nsg) { 
TimeStanq) correction; 
Delaylnfo »netDelay; 

/* nust remove this test because tiny probability of failing */ 
assert (msg->MsgSendTirae != 0); 

»if 0 /* here wait 'til after COMDEX */ 

/* if this proc early in the week and messago is from late in the week, 

it must be from last week, shift the times to fix up. 
if (thisproc->wra->wnitinie < TIMESTAKPMAX/100 

At msg->M3gSendTiffie > 99*(TIMESTAMPMAX/100)) { 
shiftTimesCmsg, -TIMESTAMPMAX) j 

} 

/* if this proc late in the week and message is from early in the weok, 

it must be from next week, shift the timos to fix up. */ 
if (thisproc->wm->wmtinie < TIMESTAMPMAX/ 100 

tk msg->MsgSendTime > 99* (TIMESTAMPMAX/ 1 00) ) { 
shiftTimeo(msg, TIMESTAMPMAX); 

#endif 

netDelay = netOelayOf (nisg->MsgSender) ; 
if (netDelay == NULL) < 

if (netDelaysIndex MAXSPLIHES) { 

zwarnC'Cannot handle more than %d SplinesW, MAXSPLB3ES) ; 

return FALSE; 

> 

netDelays [netDelaysIndex] .sender - msg->MsgSender; 
netDelay » &netDelays [netDelaysIndex] .delay Info; 
netDelaysIndex 't-t-; 
netDelay->countReaet = 33; 
netDelay->count = 0; 

netDelay->accuracy = NACHINECLOCItRESOLUTION; 

netDelay->min = 1; 

netDelay->ideal = 15; 

nBtDelay->max = 30; 

/♦ here, is this 5 bogus? */ 

netD6lay->offset = TDelta(GetTC)+5 , insg->MsgSendTiine) ; 
iietDelay->ave » 5; 

> 

else if ( Tsynch Count (netDelay) ) { 
TsyQch(0, NULL, 
TPlus(msg->MsgSendTine, netDelay->of f set) , 
netDelay^ ^correction) ; 
if (ZTEST(NET, 4) || (ZTESTCNET, 3) kk correction ! =0) ) 
zprintfC Net offsetXSld delay'/,91d delayCX91d\n" , 
n6tDelay->of f set , netDelay->ave, correction); 
ZZZZ(NET) notDelay->count » 0; 

> 

shif tTim«s(msg, notDolay->of f set ) ; 
return TRUE; 



unsigned long spHostFromNaine(char ^hostname) { 
static unsigned long thishost « 0; 
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unsigned long hostnum = 0; 

char hoBtbuffcoO] ; 

char *hnajn9; 

struct hostent *host; 



if (hostname == NULL It *hostnaine == '\0') { 
if (thishost != 0) return thishost; 
zero(getho3tnfiroe(ho9tbuf J sizeof (hostbuf ))) ; 
hname « hostbiif ; 

} 

else { 

hname » hostnzune; 

> 

if (assert ((host " gethostbynameChname) ) != NULL)) { 
hostnum « (unsigned long *)host->h_addr_list [0] ) ; 
if (hostname == NULL Aft thishost == 0) thishost = hostnum; 

> 

return hostnum; 



tfinclude <unistd.h> 

# include <stdlib.h> 

# include <string.h> 

ff include <stdio,h> 

#ifdef mips 

• include <maLlloc.h> 

»endif 



tfincludfi <2debug.h> 
•include <spline.h> 
•include <spline/objdef s.h> 
•include <spline/netvork.h> 
•include <spline/share .h> 
•include <spline/tiine.h> 



•include <spline/Xmain.c> 

extern spLocale lookingfor; /* her© this is ugly */ 
extern void saveCheclsClasses(void) ; 
extern void checkClasses (void) ; 
extern void objectReport (void) ; 

/* Output sample rate to headphones */ 

•define DEFAULTSOUNDRATE 16000 

/* Input sample rate of microphone •/ 

•define DEFAULTSPEECHRATE 16000 

/♦ The encoding format for speech */ 

•define DEFAULTINTERKALSOUMDFORMAT SP16LINEAR16M0N0 

•define SUBSPACEINTERVAL lOOOO 

•define MAXMSGINTERVALMSECS 24000 

•define LINK_TIMEOUT 12*60*60*1000 /* 12 hours ♦/ 

•define OTHERS, TIMEOUT 50000 

•define ACTIONS. IN.A.ROW 3 

•define LINKS. IN. A. ROW 2 

•define OTHERS.IN.A.ROW 2 

spDuration currentTimeout = OTHERS _TIMEOUT; 

extern boolean addDRtoAction(spId id, void *data) ; 

/* for zdebug »/ 
int NET " 0; 
int LEAK = 0; 
int GRAPHICS = 0; 
int FRAME » 0; 
int OBJ = 0; 
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|| 

■\ int LOOPAUDIO «^ 0; 

1; int DR « 0; 

:| extern int MALLOC; 

i; Struct MicSHM *niicSHM • HULL; 

ji struct PhonesSIW ♦phonesSHM - NULL; 

ii 

.{ /♦ functions defined in this file (in order) */ 

; void updateWiiiObjects(void) ; 

j void scanWmObjs(void); 

;| Static boolean satisfyNov(spld id); 

:! static boolean updateWmObj (spid id, void ^ignore); 

,! static boolean doVmActionCspId id, void ^ignore); 

it void shiftToNextWeek(void) ; 

;j void vmJustAddedObjectCvoid *idPtr); 

ii void vmJustRefflovedObject (void ^idPtr); 

; void wmFreeObject(void *idPtr); 

i void validateAllReferrersCvoid) ; /♦ in objdefs.c ♦/ 

' static ProcData proc; 
ProcData ♦thisproc; 

, char *procname(char *path) < 
char *myname; 

if ((myname =» strrchr (path , VO) — NULL) myname « path; 
else myname+-f; 

if (strlenCmynaine) > 15) mynameClS] = *\0'; 
return myname; 

> 

; /* World-model initialization. Initializes the standaird classes, and 
the dynamic and static object hash tables. Returns OK upon 
successful initialization. */ 

: void BpInitProc(int argc, char **argv, int version) { 

char *zenv = getenv(*'ZDEBUG") ; 
j char '*'name =» procnane (argv [O] ) ; 

char *soundrateenv - getenv("SPLIHESOUNDRATE") ; 

char ♦speechfonnatenv » getenvC'SPLINESPEECHFORMAT") ; 

long soundrate; 

int i; 
j: int owner; 

j; zinit(name, procz, ZENTRIES, 

j: "warnl:ermol:2procl:ztimel:audiol:bdi2", FALSE); 

\' assert(NET = zrcgister('*net*\ "network")); 
1 #ifdef MEMLEAK 

assertCLEAK = zregister("leak", "memory leak detection")); 
:■ tfendif 

assert (GRAPHICS = zregister ("graphics" , "graphics")); 
' assert(FRAME = zregister ("frane" , "frame timing")); 

assertCOBJ = zregisterC'obj" , "objects coming and going")); 
assertCDR « zregister("dr" , "dead reckoning")); 

assert (LOOPAUDIO = zregister("loopaudio" , "loopback live audio")); 

if (zenv != WULL) zargs(zenv); 

if (version !» SPLIHEVERSION) { 

zwam ("Running against the wrong version of the Spline library An") ; 



thisproc = &proc; 
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thisproc->second3Baae « getSecondsBaseC) ; /* this must set up before netvoik 

• I 

strewnlnitO ; 

I thisproc->aaine = name; 
thisproc->pid » getpid(); 
tliisproc->host « spHostFroiiiNaiae(NULL) ; 
thisproc->displayhost = spDisplayHost () ; 
t hi 5proc->audiodi splay host « spAudioDisplayHost () ; 
soundrate « DEFAULTSOUNDRATE: 
;; thisproc->speechformat = DEFAULTINTERNALSOUNDFORMAT ; i 
if (speechfonnatenv != NULL) i | 
if CstrcasecDpCspeechfornatenv, "ulaw") == 0) | 
I thisproc->speechtormat = SP8ULAW8M0N0; 

else if (strcasecmpCspeechf onnatenv, "adpcm") " 0) 

thisproc->spGechfoniat = SP8ADPCM4M0N0 ; 
else if (strcasecmpCspeechf orro at en V, "liiiear8") == 0) 

thisproc->speGchforaat = SP8LIHEAR1SM0ND; 
else if (strcasecmpCspeechf ornateiLV, "linearis") ~ 0) 
, thisproc->speechforaat = SP16LINEAR16M0W0; ! 

alsa if (strcasecmpCspeechf o mat env, "linear32") == 0) ! 
thisproc->speachformat = SP32LINEAR16M0N0; | 
':'> else if (strcasecmpCspeechf onnatenv , "gsm") 0) j 
thisproc->speechforaat = SP_05GSM8_33; ! 
else zwamO'unsuppcrtod SPLINESPEECHFORMATW) ; 

ii } 

!i if (soundratoonv != NULL) < 

int rate = atoi(soundrateenv) ; 

:| if (Crate != 8000 kk rate 16000 kk rate != 32000 k& rate != 48000) I I 
I; Crate < thisproc->speechf ormat->rate) ) { 

2warn("a sound rate of '/,d won't work\n") ; 

1; > 

i else { I 

soundrate « rate; j 

printf ("sound rate set to )(ld\n'*, soundrate); i 

■ 

:! thiBproc->micFonnat = ■♦SP8LINEAR16M0N0; j 

ij thi5proc->micFonnat .rate ■ thisproc->speechf ormat->rate; | 

thisproc->audioSinkFormat » *SP8LINEAR16STERE0; | 

thisproc->&udioSinkForaat .rate = soundrate; | 

i thisproc->DRTolerance = 0.01; /* Dead-reckoning tolerance Cmeters) . */ 

thisproc->f akePartner = FALSE; | 

thisproc->wia = Cstruct wa ») callocCl, sizeof Cstruct wm)); ] 

I thisproc->win->DanieCoxinter = 0; j 

/♦ This needs to be Issued by some central spline process to guarantee | 

i uniqueness, but this works OK for testing now. */ 

owner = ((spHostFromNaneCMULL) A 0377) « 8) + (thisproc->pid A 0377); ! 

i; thisproc->wni->nameOviier = owner; 

;> thisproc->wm->wnttime = GetTO ; \ 

!; thisproc->s6conds = seconds; i 

for (i = 0; i < WMOHTSIZE; i++) thi3proc->wm->wittOHT[i] = NULL; j 

quevielnit (&(thisproc->tfin->JustAddedObj6cts) , i 
i; malloc(6000 * sizeof (void *)), j 
:\ 6000, sizeof (void *)); 

■ j queuelnit (&(thisproc->wn->JustReiiovedObjects) , 
I nialloc(QBJCHANGESPERFRAME * sizeof (void *)), 
j OBJCHANGESPERFRAKE. sizeof (void *)); 

''■ queuelnit (ft(thisproc->wm->objectsToFree) , ' 
:: mallocCOBJCHAKGESPERFRAME * si2«of(void *)), i 
OBJCHANGESPERFKAME. sizeof (void *) ) ; 

\'. networklnit () ; 
[i initClassesO ; 

savQChockClassesO ; 
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ZZCOBJ) {checkClassesO ; validateAllRof errers() ; > 
ttifdef mips 
Z(MALLOC) { 

]nallopt(M_DEBUG. 1); 

zprintf ("malloc debugging enabled\n"); 

> 

ttendif 
> 

extern void removeFromlndexCspId id); /♦ in objdefs.c */ 
extern void handleSpIdRemove(spId id); /♦ in objdefs.c */ 
extern void sendRemoveActionFor (spid id); /♦ in objdefs.c */ 

/* send all the remove messages first so spline will know 
what locales to send them to. */ 

boolean reinitl(spld id, void ♦ignore) { 
if (getClass(id) != spcClass) { 
sendReiDoveActionFcr(id) ; 

> 

return FALSE; 

> 

/* Then get rid ot all the objects themselves ♦/ 

void stopAllListeningCspId pov) ; /» in network. c ♦/ 

boolean reinit2(spld id, void ^ignore) { 
if CgetClass (id) == spcSlot) i 
handleSpIdRemove(id) ; 
removeFromlndexCid) ; 
wraFreeObject<Cvoid *)&id); 

> 

else if (getClass(id) f= spcClass) { 
spRemoveCid) ; 

wmFreeQbject(<void *)ftid); /* spReinit blanks the removed queue */ 

> 

return FALSE; 

> 

extern flushALocs(void) ; /* in audiomodulo.c */ 

void BpRoinit(void) { 

spExaiQineWorldModel(spcSlot , reinitl^ NULL); 
spExaiDineWorldModel( SpcSlot, reinit2, NULL); 
queueReset (A (thisproc->uin-> Just AddedOb j ects) ) ; 
queueReset (ft (thiBproc->mii->JustRemovedObjects) ) ; 
queueReset (ft (thisproc->win->obj ectsToFree)) ; 
apRemCallbacks () ; 
f lushALocsO ; 

> 

spDuration spUpdateWorldModel(spDuration interval) i, 
static boolean first - TRUE; 
static TimeStamp lastfrane; 
TiraeStanip thisfrane; 
TimeStamp target; 
spDuration waittime; 
extern void networkAudit (void) ; 

Z(FRAME) zprintfC"- F RAM E \n") ; 

thisproc-> seconds = seconds; 

if (first) < 
first = FALSE; 
lastfrane « GetT() ; 
ZZZZ (FRAME) { 



- 37 - 



04/11/2004, EAST Version: 1.4.1 



61 



5,842,216 



62 



i 



printf ("(!id) (int) interval) ; 
f f lush(NULL) ; 

> 

} 

TipdateWmObjectsO ; 

ZZ(OBJ) networkAuditO ; 
Z(OBJ> objectReportO ; 

target = TPlus (last frame, interval); 
waittime = (spDuration) TDelta(target , GetTO); 
if (waittime > 5) { 
pollCO. 0, vaittime); 

> 

thisframe = GetTO; 

interval = (spDuration) TD6lta(thisf rame, lastf rams) ; 
lastfrajne = thisframe; 
ZZ2Z( FRAME) < 

printf ("(5td) (int) interval) ; 

f f lush(MULL) ; 

> 

if (interval > currentTineout/lO) { 
currentTiiaeout = 1000000; 

> 

else { 

/* here should make this decay work better */ 

currentTimeout = (int) (currentTiraeout - 200); /* 200 * 5000 = 100000 */ 
if (currentTimeout < OTHERS .TIMEOUT) currentTimeout « OTHERS TIMEOUT; 

> 

return interval; 



/* if anyone has been waiting at least 2O0msec, send almost everything >*/ 
static boolean satisfyNov(spId id) { 
if (id) { 

if (isSubspaceObj (id) || lookingfor -2) return FALSE; 
if (lookingfor -1) < 

if (getLocaleld(id) !» lookingfor kk 
ImyNeighbor (lookingfor, getLocaleld(id)) ) return FALSE; 

> 

if (thisproc->win->oldestUiisatisf ied > 0 

kk TDelta(thisproc->wm->wmtiine» thi3proc->wra->oldestUnsat isf ied) > 200) 
return TRUE; 
else return FALSE; 



/* Iterate through all objects in the world model, performing 

actions, and generating any relevant network updates needed, =*/ 

void updateWmObjects(void) < 
ZZ(OBJ) < 

checkClassesO ; 
validateAllRef errers C ) ; 

> 

thisproc->wm->wnrtinie = GetT(); 

if (thisproc->wm->wiitiine > TIMESTAMPMAX) shiftToNextWeekO ; 
processIncomingMsgsO ; 

/* procgss removed objects, must do bofore adds in case 

an object is being replaced. */ 
queueApply(&thisproc->wm->JustRemovadObj©cts, wmJustRemcvedOb j«ct) ; 
/♦ process newly added objects */ 

quoueApply(ftthisproc->wm->JustAddedObjQcts, wmJustAddedObj act ) ; 
/♦Do actions before updates, they might change things and thereby 
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trigger callbacks. */ 
spExaminoWorldHodelCspcAction , doUmAction, NULL)] 
/* Haxt check which objects have to be updated over net, 

queue callback functions^ and then set change bits back to zero. */ 
spExamineWorldHodelCspcAny , updateWmObj , NULL); 
if CBatiBfyNow(NULL)) { 

thisproc->wm->oldestUnsatisf ied = 0; 
lookingfor = -2; 

/♦At the last moment before returning to user, free removed objects */ 
queueApply(tthisproc->wm->objectsToFree» wmFreeObj ect) ; 
ZZCOBJ) { 

checkClassesC); 

validateAllRef errors () ; 

> 



static boolean doWniActaon(spId id, void ^ignore) { 
doCLas3Fn(id) ; 
return FALSE; 

} 

static int resendlntervaKspId id) < 

if (isSubspaceObj(id)) return SUBSPACEINTERVAL; 
return MAXMSGIMTERVALMSECS: 

> 

static int timeout(spId classid) i 

If (subclass (class id, spcLink)) return LINK.TIMEDUT; 
return currentTimeout ; 

> 

static int f rainesInARov(spId classid) { 

if (subclass (classid, spcAction)) return ACTIONS_TN_A_RaW; 
if (subclass (classid, spcLink)) return LINKS.IN.A.ROW; 
return OTHERS. IN _A. ROW; 

> 

static boolean keepAlive(8pId id) { 

spDuration interval = TDelta(thisproc->wm->wmtime, gotTimeOfUpdato(id)) ; 
int msgs » getMessagesSinceUpdate(id) ; 

if (msgs < frainQ6lnARow(getClass(id)) tck interval > 0) { 
return TRUE; 

> 

if (interval* (01777 & (long) id) > resendlntervaKid)) { 
/* flag is needed inside nctworkSend */ 
3etMsg^eeded(id) ; 
return TRUE; 

> 

if (getTimeOfUpdate(id) > thisproc->wm->netfestUnoatasf ied) return FALSE; 
if (satisfyNow(id)) < 

ZZ(OBJ) zprintf ("satisying v/ obj (Ox*/,08x-y.s)\n", 
id, getClassNane (get Class ( id)) ) ; 

/♦ will reset counter so multiple copies will be sent ♦/ 

setMsgNeeded(id) ; 

return TRUE; 

> 

return FALSE; 

> 

static boolean updateWmObj (spid id, void ^ignore) { 
/♦ maybe send update message */ 

if (spSelf0un8(id) && 

! (subclass (getca ass (id) , spcAction) kk getActionNoMsg(id))) i 
/* Message for new object might already have been sent */ 
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if (CgetMsgpIeedodCid) &k tliisproc->wia->w]otime != gotTimaOfUpdato(id)) j 
II keopAlivo(id)) { I 
net vorkSdnd ( id) ; ! 

i 

/* naybd kill other process's object because no message in a long time */ 
if (getClass(id) != epcClaes &ft ! spSelf OwnoCid) k& \ 
(TDelta(thisproc->wm->wmtinie, getTimeDfUpdate(id)) j 
> tiiDeout(getClaas(id)))) { 
ZZ(OBJ) zprintf ("timing out obj (Ox^JOSx-Jis) wmT /.Id idT '/Id timeout y,ld\n'j 
id, getClassNaine(getClas8(id)) , 
tliisproc->wm->wmtiine , 

getTiineOfUpdate(id) , timeout (getClass (id)) ) ; 

spR,emove(id) ; ! 
} I 
doChaiigeCallbacks(id) ; j 

1 

/♦ reset change bits ♦/ j 
setChang8s(id« 0) ; 
return FALSE; 

> 

boolean shiftObjToNextWeek(spId id, void* ignore) { 

shiftAllTiEnes( (Message *)id, -TIMESTAMPMAX) ; I 
return FALSE; | 

! 

/* before we can write this completely right, we must locate every stored | 
timeStamp in the system! and make sura that there are never any stored I 
times out of Splines control. */ I 

void shiftToNextWeekCvoid) { | 

thisproc->win->WBitime -= TIMESTAMPMAX; , 
thisproObaseStamp -= TIMESTAMPMAX; 
thisproc->secondsBase += TIMESTAMPMAX /I 000; 

/* more specific timestamps shifted? */ j 

spExamineWorldModeKspcAny, shif tObjToNertWeek, NULL); • 

/* This does all the processing that is needed when a new object is added 
to the world model. This includes: 

1- Sending out the first message about the object. 

Mote doing this here means that even if the object is an action that 
immediately removes itself when it runs, a message about it will go out!: 

2- Setting up the right callback. */ . 

void wmJustAddedObject (void *idPtr) { 
spid id - *(apld *)idPtr; 

if (getClass (id) !« spcSlot) { 
if (spSelfOwns(id)) { 

if (! (subclass (getClass (id) , spcAction) getActionNoMsg(id))) { 
3etMsgNeeded(id) ; 
networkSend(id) ; 
} 

> 

do JustAddedCallbacks (id) ; 

> 

> 

/* This does all the processing that is needed when an object is removed 
from the world model. This includes: 

1- sending out a remove message if needed. 

2- setting up the right callback. 

3- queue for freeing of storage. */ i 
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void vnJustRemovedObject (void ♦idPtr) i 
spid id - *(spld OidPtr; 

if (getClassCid) spcSlot) { 
do JustReinovedCallbacks(id) ; 

> 

enqueue (&thisproc->wm->objectsToFree, ftid) ; 

> 

void wmFreeObjectCvoid *idPtr) { 
spId id - tCspId *)idPtr; 

setMsgCodeCid, SPLINEREMQVED) ; 

freeCCvoid *) ((char *) id-getClassOff set (getClassCid)) ) ) ; 

•include <values.h> 

•include <sys/paraiii.h> 
i # include < st ring . h> 
.;#include <tiiQe.h> 

tinclude <stdarg.h> 
■•include <Btdio.h.> 
: #include <Bys/types.h> 
■•include <Bys/stat.h> 

•include <fcntl.h> 
/ •include <unistd.h> 
:;#include <math.h> 
jitfinclude <liniits.h> 
: ' tfif def mips 

ttinclude <malloc.h> 
;i tfendif 

:# include <zdebug-b> 

i.#include <spline.h> 
!■ •include <spline/objdef s.h> 
I ' # include <spline/share .li> 
; #include <spline/network.h> 
•include <spline/time.h> 

; extern void PrintMatrix(3pTMatrix *t); 

'. extern int DR; 

; extern int LOCALE: 

: spId watch = NULL ; 

; functions defined in this file (in order) */ 

boolean checkId(BpId id, spId classld. boolean owns); 

void initClass(spId ♦idPtr, spId *superIdPtr, char *classnaiiie, 

int globalSize, int totalSize, spName name, int filterBits 
int fn» int make, int init, int changeFn, int numFields) ; 

int spSubclass(spId cl, spId c2) ; 

void spDecodeClass(spId id); 

void 8etSpId(spNaiiLe * nane, spldLink *■ link, spld id); 
; void handleSpIdChange(epId old» spld new); 

spld newObjCspId id, void ** ptr, int extra); 

spld makeLink(BpId classld, va.list ap) ; 

static void genNane (spld id); 

spld lookup (spNaae name); 

spld robustLookup(spName name); 
[[ spld addChaining(spId id); 

spld addOne(spld id); 

void addTo Index (spld id); 

void act ionRemoveS elf (spld id) ; 

void spRemove(spId id) ; 
; void reiDoveFroiiIndex(9pId id); 
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■ void spExamineWorldModeKspId classid, spQbjFn *fa, void *data) ; 

void spPrint(GpId id); 
: void processObjHsg(void *iiisg); 

.void textLiakWriterCspId placard, spDuration interval); 
'. void polheinusDataMotionLink(spId id) ; 

' void handlePossibleLocaleChangeCspTd oldParent , spid nevParent, spid child); 

spid spRequest Ownership (spId object > spDuration timeout) -( 
zvam(" Ownership changes cannot be made now"'); 
return NULL; 

; > 

void spSatisfyOwnershipRequest(spId ownershipReqeust) { 
z warn ("Ownership changes cannot be made now"); 



/* spName's */ 

; /• Currently an spName has the following form. The only 

dependence on the format of these names is in this single file. 
The name 0 indicates no obj ect . 

For classes » nameOvner==0 and nameld is a small integer chosen so 
that the classes will be very veil distributed in the object hash table. 

For other objects, nameOwner is the 16 bit owner tag !=0 of the 
owning process and naneld is a 16 bit id guar2Lnteeing uniqueness. 
(Max &4k simultaneous objs per owner.) 

thisproc->wro->nameOwner is current set based on a combination of 
bits from the host nun and pid (see vmobj.c). In the future it 
must be set by some centralized means to guarantee uniqueness. */ 

typedef struct < 

short int owner; 

short int id; 
> spNameStruct ; 

#define nameOwner (name) (((spNameStruct *)(& (nam6)))->owner) 
#define nameld (name) (((spNaneStruct *)CA (name)) )->id) 

static void gonNanio(spId id) { 
spHaune name; 
if (id == NULL) return; 
else /* some other named class */ -( 

nameOwner (name) * thisproc->wm->naBieOwner; 

nameld(namc) « thisproc->wm->nameCounter++; 

setName(id,naiae) ; 

> 



#include Opline/Xobjdefa .c> 

/* These next few functions are used by Xobjdefs.c */ 

/* Demands id is not NULL, returns TRUE if it finds a problem. */ 

boolean checkld(spld id. spid classid, boolean owns) { 
static int lastversionwaming » 0; 

if (id == NULL) { 

zwamC'id is NULL\n"); return TRUE; 

> 

if (getMsgCode(id) == SPLINE31EM0VED) { 

zwam("spld y»#lX has been f reed\n", (long)id) ; 
return TRUE; 

> 

else if (getHsgCode(id) SPLINEVERSION) { 

if (tbisproc->seconds - laatversionwarning < 60) { 
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! zwarnC'once-a-minute version mismatch: id is not object */.#lx\n", (long) id) 
lastveroionwarning * thisproc->oecondB; 

/* here was returning TBUE */ 

: } 

j if dCclELSsId spcSlot 11 subclasa(getClas5(id) , classic^)) i 

zvarn("id is of class Yta, not '/sNn'*, 
* getClassName(gatClass(id)) , getCla8sName(classId)) ; 

return TRUE; 

; } 

if (owns kk getName(id) !»0 &k IspSelf Ovns{id)){ 
zwarn( "process not owner of id '/,#li\n", (long) id); 
return TRUE; 

} 

return FALSE; 

> 

boolean spSaineOtfner(spId x. spid y) { 

return nameOwner(getNaiDe(x)) == najneOwner(getNaine(y)) ; 

> 

boolean spSelf 0»ns(spld obj) { 

return thi3proc->wm->naineOwner == nameOwner(getName(obj ) ) ; 

> 

int spSubclassCspId cl, spId c2) < 

if (checkld(cl, spcGlass, FALSE)) return FALSE; 
if (checkld(c2, spcClass, FALSE)) return FALSE; 
return subclass(cl, c2) ; 

> 

boolean s pD ascendant (sp Id child^ spId parent) { 
for (; child; child = getParent (child)) { 
if (child = parent) return TRUE; 

> 

return FALSE; 

> 

static char coinpare[60] [2000] ; 
static void ♦claasstart [60] ; 
static int clas3len[60] ; 
static int classes; 

:/* This initializes the variables holding the standard class ids. 

It needs to be called by the world model whenever initialization occurs. */ 

= void initClass(spId *idPtr, /* spot to store class */ 

spId ♦superldPtr, /♦ superclass */ 
char ♦classcame, /♦ class name ♦/ 
int globalSize, /* size of global fields */ 
int totalSize, /♦ size of all fields */ 
spName name, /* name of class (owner zero) */ 

int filterBits. /* Inherent marker bits for class */ 
int fn, /* index of class function */ 

int make, /» index of make function */ 

int init, /* index of init function */ 

int changeFn, /* index of change function */ 

int numFields) { /* number of non-inherited fields */ 
SpId id^ sup; 
int i; 

void *obj start; 
int obj Ion; 

objlen = sizeof (struct .spcClassLocal) 4- numFields+sizeof (FieldDoscriptor) ; 
assert ((obj start » (spld)calloc(l, objlen))); 
id = (spld)((char *)(objstart) 

+(si2eof (struct .spcClassLocal) 
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I •sizdof (struct _spcClassGlobal))) ; 

I sotClassFioldsCid, (Fi«ldD«scriptor *)C(char *)id 
I + sizoof (struct .spcClassGlobal))) ; 
\ setMsgCodeCid, SPLINEVERSION) ; 
* 8etName(id, name) ; 

; for (i * 0; i < aumFields; 1*+) getClassFieldsC id) [i] .class = id; 
; if (apcClass) { 

initspcClassLinksdd) ; 

if (superldPtr) setSuperclassdd, «superIdPtr) ; 

*idPtr " id; /* must be after last line */ 
setClas3Name(id, classname); /* must be before next line */ 
for (sup " id; sup; 3up'getSuperclass(sup) ) { 
getSuperclasses(id) [getName(sup)] " 1; 

} 

/'*' Have to hack here because some superclasses not in the objs yet */ 

getSuperclasses(id) [l] = 1; /* everything is a slot ♦/ 

if (najne>l) getSuperclasses(id) [2] ~ 1; /* almost all are an any */ 

setClassSizeCid. (totalSize+3) ft *3) ; /* for safety */ 

setClassDf f set(id> totalSize-globalSize) ; 

setClassFilterBitsCid, filterBits); 

setClassNumFields(id, numFields) ; 

setClassFnCid, fn) ; 

setMalceFnCid, oake) ; 

setInitFn(id, init) ; 

s8tChangeFn(id, changeFn) ; 

addToIndeiCid); 

classlenCname] = objlen - ((char ♦) id - (char *)objstart); 
classst art [name] = (void *)id; 
classes » name; 



; void saveCheckClasses (void) -( 
; int i; 

for (i=l; i<=classes; i4+) { 

m9mcpy((void *)ftcompare[i] [0] , (void *)class3tart [i] , classlan[i]) ; 

> 

; > 

void chQckClasse8(void) < 
int i; 

'. for (i=l; i<=clasfies; i++) { 

if (memcmp(clasfistart [i] , (void *) compare [i] , classlenCi])) 
zwamC'raemory BASHED! \n") J 

: > 

i. static boolean removingParent (spid child, void *parent) { 
handlePossibleLocaleChange((spId) parent, NULL, child); 
return FALSE; 

; > 

/* Handle getting rid of spId and spKame. ♦/ 
! /♦ Here should make it so that if a slot has no referrers 
I it is removed. ♦/ 

■ void handleSpIdReniove(spId id) { 

spIdLink * link; 

spIdLink * next; 

spId whole, class; 
; spName * name; 
I int i; 

'■ FieldDescriptor ♦ field; 

ZZCOBJ) validateReferrers(id, FALSE); 
spExamineChildr€n(id, removingParent, (void *)id); 
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/'f get rid of all references to id */ 

for (link » (spIdLink ♦)getReferrerB(id) ; link; link = next) { 
next = link->next; 

assert (1 ink- >field &4 (fieldSPID & link->f ield->properties)) ; 
whole = (spld)((char *)liiik - link- >field->linkOff set) ; 
if (link->fiold->changeBit) < 

set Changes (whole, getChanges (whole) I link->f i6ld->changeBit) ; 

> 

name = (apName *)((char *)whole + link->f iflld->off set) ; 
*najne ~ 0; 
link->id - MULL; 

/» the following just for extra safety */ 
link->prev » NULL; 
link->next = NULL; 

> 

setRef errers(id, NULL); 

/* take id's fields out of link chains pointing to others. 

Leave the pointers to others however, so that a remove callback 
can work. (We may get rid of this later.) */ 
for (class = getClass (id) ; class; class = gotSupercl ass (class)) { 
for (i = getClassNumFields (class)- 1 ; i >= 0; i — ) { 
field - tgotClassFields (class) [i] ; 
if (fieldSPID k f iold->properti©s) { 
link = (spIdLink *)((char ♦)id + f ield->linkOf f set) ; 
ZZ(OBJ) validataSpIdLinkdink, 0, FALSE); 
/* take out of old list */ 

if (link->prev) link->prev->noxt = link->next; 
if (link->n6xt) link->next->prGV = link->prev; 
/* the following just for extra safety, note keep ->id */ 
link->prev * NULL; 
link->iiext = NULL; 
} 

> 

> 

> 

typedef spid MakeFn(spId classid, va.list ap) ; 

spid spMake(spId classid, . . .) i 
MakeFu * makePn; 
va.list ap; 
spid id; 

if (checkld(classld, spcClass, FALSE)) return NULL; 
laakeFn = ((MakeFn *)(iiiethodTable[getMakeRi(classId)])) ; 
if (makeFn NULL) zwamCXs has no make function\n'\ 

get ClassName (getClass (id))) ; 
va_start(ap, classid); 
id = makeFn (classid, ap) ; 
va_end(ap) ; 

genNanie(id) ; 
addToIndex(id) ; 

/* do this after the object has a najoe, rather than in inakeLink */ 
if (subclass (classid » spcLink)) doClassFn(id) ; 
enqueue(ftthisproc->wm->JufitAddGdObjocts, Aid) ; 
return id; 



typedef void InitFn(spId id); 

/* This is the basic object making function. */ 

/* Note special make functions can malloc some additional memory as 
part of the object. (This is facilitated by the extra arg below.) 
Note things are set up so that this extra memory will be sent in 
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messages, but it is imperative that if this is the case^ then this 
space cannot every grow! If the extra space is not supposed to be 
in messages, then you must reduce the message length to the proper 
point. */ 

spid nevQbj (spid classid, void **pXr , int extra) i 
InitFn ♦ initFn; 
char * P; 

int size » (getClassSize( class Id) -t-extra+S) k '3; 
spid nevid; 

if (checkld(classld, spcClass, FALSE)) return NULL; 
assert ((P «* (char ♦)calloc(l, size))); 

if (extral^O kk ptr) ♦ptr = (void *) CP+getCla55Size(classId)) ; 

newld = (spId)(P+getClassOff set(cla3sld)) ; 

setMsgCoda(iiewId, SPLIKEVERSION) ; /♦ must do first ♦/ 

set CI ass. (newld, getNajue(clas5ld)) ; /* for debugging */ 

initFn = ((InitFh *) (methodTable [get InitFn (classid)] )) ; 

assert(initFn) ; 

initFn (newld) ; 

setClass(netfId, classid); 

setMsgSander (newld , thisproc->host ) ; 

setProcessNaine(newId, thisproc->naine) ; 

set)lsgLength(newId, size-getClassOff set (classid)) ; 

s et Fi It erBits (newld, getClassFilter6its(classId)) ; 

return newld; 



/♦ Special make functions, */ 

spid makeLink(spId classid, va.list ap) { 
char *arg = va_arg(ap, char ♦) ; 
char *url = va_arg(ap, char ♦) ; 
int arglen = strlen(arg) ; 
int len = arglen+strlen(url) ; 
spId id; 
char *buffor; 

if (len>499) { 

2wam("Link arg and/or URL too long\n"); 
return NULL; 

> 

assBrt((id » newObj (classid, (void **)&buffer, len+2))) ; 
setLinkArgCid, buffer); 
St rcpy (buffer, arg); 
aetLinkURL(id, buf f er+arglen+l) ; 
strcpy(buffer+arglen+l , url) ; 
return id; 



static boolean newlccale(spld child, void ■•■r) { 
struct reparent ♦reloc - (struct reparent ♦) r; 

setLocaleld (child, reloc->nevl) ; 
setChangedLocaleld (child, 0); 

if (subclass (getClaaa (child) , apcPOV)) relocatePOV (child, reloc); 
return FALSE; 



void handlePossibleLocaleChange(spId oldParent, spid newParent. spid child) { 
struct reparent reloc; 

/* the network code needs to know when a pov changes locales */ 
reloc. oldl « localeldOf (oldParent) ; 
reloc. newl ■ localeldOf (newParent) ; 
if (reloc. oldl t= reloc. newl) < 

reloc. child « child; 
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reloc.oldp « oldParent; 
reloc.newp - newParcnt; 

Z2Z2(L0CALE) zpriutf ("reparenting Us OxV.OSx from within " 
*'loca.le #*/td to locale #'/d\n", 
get CI as sMame (get CI ass (child)) « child, 
reloc . oldl , reloc . newl) ; 

nevlocale (child. Areloc) ; 

spExamineDescendants (child, nevlocale. (void *)ftreloc) ; 
ZZZZCLOCALE) zprintfC'reparenting completeXn") ; 

> 

> 

/* special set and get functions */ 
void set Parent Function (spld child, spid newParent) { 
spid oldParent * getParent (child) ; 

if (oldParent !=» neuParent) < 

/♦ hare we check that the filter bits are correct */ 

satSpId(&(g6tParent_ (child) ) , ft (get Parent .link (child) ) , newParent); 

h&ndlePossibleLocaleChange (oldParent , newParent, child); 

> 

/* THE WORLD MODEL HASH TABLE */ 

/* This looks objects up in the hash table. »/ 

Bpid lookup (spNaise name) i 
spid id; 

if (name « 0) return NULL; 

for (id » thisproc->wiii->wiBOHT[naiDeIdCnajne) WMOHTSIZE] ; 
id!-NULL; 

id - getNext(id)) < 
if (name " getNaiiie(id) ) return id; 

} 

return NULL; 

> 

/* This makes sure something is in the table! */ 

spid robustLoolcup(spNaine name) { 
spid id « lookup(naine) ; 
if (name kk !id) { 

id = newObj(spcSlot . NULL, 0); 

setName(id, name); 

addToXndexdd): 

22 (OBJ) zprintf ("pom: made slot for name (0xX08x-*/,s)\ii" , 
name , getClassName (getCl as s ( id) ) ) ; 

> 

return id; 

> 

void addToIndex(spId id) i 

spid * bucket = A(thisproc->wm->wiaOHTCnajaQld(gQtNamo(id) ) % WMOHTSIZE]) 

setNext(id» ^bucket) ; 
♦bucket = id; 

} 

void removoFroinIndex(spId id) { 
spid tmp, last; 

int hasbVal • nameId(gotNaiiie(id) ) */, WMOHTSIZE; 
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invalidateLocatorsFor(id) ; 

for (last » NULL, tmp =» thisproc->wiii->wmOHT[ba.shVal] ; tmp ; 
last = tmp, tmp - getNext(tnp)) { 
if (tmp == id) { 

if (last NULL) thisproc->wiii->winOHTCliashVal] =getNext(tmp); 

else setNextdast, getNext(tiiip)) ; 

break; 

> 

> 

setWext(id, NULL); 



The follotfing short circuits creating the removeActiou object locally */ 

i static spid removeAction = NULL; 

i void sendRemoveActionFor (spId id) { 

if (sp5elfClvrLs(id) 
I ilk getClass(id) != spcClass 

: kk ! (subclass(gQtClass(id) ) spcAction) kk gQtActioaNoMsg(id) ) 

I kk got Parent (id)) { 

■ if (removeAction == NULL) { 

/* we do weird stuff here so removeAction not linked into WM */ 

removeAction - newObj (spcRemoveAction, NULL, 0); 

set CI ass (removeAction, NULL); 

BetClass_(removeAction, getNanG(BpcRemoveAction)) ; 
get Class _1 ink (removeAction) . id = spcRemoveAction; 

• setActionObj_(removeAction, getNaiae(id) ) ; 

set Parent .(removeAction, getName (getParent (id) )) ; 
8etLocaleId(rQmoveActionf getLocaleld(id)) ; 
getParent_link(reinoveAction) .id = getParent (id) ; 
networkSend (removeAction) ; 
setActionObj. (removeAction, O) ; 
set Parent. (removeAction, 0); 
getParent_link(removeAction) .id - NULL; 

:■ } 

:> 

: /* here think what happens if you remove somebody elses object and then 
it pops back? ♦/ 

::/* here should probably really change things so freeing is more immediate! */ 

; void spRemoveCspId id) { 

extern void stopAllListeniiig(spId) ; 

if (checkld(id, spcSlot, FALSE)) return; 
if (g6tClass(id) — spcClass) i 

2warn("Cannot remove builtin class Xs\n", getClassNam€(id)) ; 

return; 

> 

if (subclass (getClass( id) , spcPDV) kk getListeningBits(id)) < 
stopAllListening(id) ; 

sendRemoveActionForCid) ; 
handleSpZdRemave(id) ; 
removeFromlndgx(id) ; 

enqueue (frthisp roc- > win- > Just Rem© vedObjects, ftid) ; 

/* This allows an action to remove itself without ever sending a 
message about it to any other machine. Note this is needed, 
because the action is likely to get done a bit sooner on the owning 
machine than on other machines, and shouldn't abnormally terminate 
the action on remote machines. On the other hand, if the action is 
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terminated early on the owning machine by a remove triggered from 
outside the action, then early termination on other machines is 
appropriate. */ 

void actionRemoveSelf (spid id) { 

if (checkld(id, spcAction, FALSE)) return; 
setActionNoMsgCid» TRUE); 
spRemoveCid) ; 



typedef void ChangeFnCspId old, spId nev) ; 

void checkChangesCspId old, spId nev) { 
ChangeFn * fn; 

fn = ((ChangeFn *) (met hodTable [get ChangeFn (get Class (old))] )) ; 
if (fn NULL) zwarn('"yiS has no change function\n", 
getClassNanie(getClass(old))) ; 
else fn(old, new) ; 



/* eventually something in here to handle changes in link data */ 

void updatoExistingObj (spId ciistingld, spId nsg) { 

if (! (assert (getClass. (nsg) getClass. (existingid) ) ftft 
assQrt(getHsgLength(msg) ~ gotNsgLength(existingld)))) 
return; 

checkChanges(existingId, msg) ; 

memcpy((void *)existingld , (void *)m8g, getM6gLength(nu9g) ) ; 

SpId Great eNevObj ( SpId msg) { 

SpId msgClass ^ lookup (get Class, (nsg) ) ; 
int offset = getClaasOf f set (msgClaas) ; 
int size - getMsgLength(nsg)-<'off set; 
SpId newld; 
int extra • 0; 

if (size > getClassSize(insgClass)) extra * s ize-getClassSize (msgClass ) ; 
newld e newObj (msgClass , HULL, extra); 
checkChanges(nevId , msg); 

memcpy((void *)newld, (void *)ni3g, getMsgLeiigth(rosg)) ; 
addlo Index (newld) ; 

/* This is going to have to spawn a process in the future */ 
if (subclass (getClass (newld) , spcLink)) doClassFn (newld) ; 
enqueue(ftthisproc-> wii-> Just AddedObj acts, inewld) ; 
return newld; 



/* Process the contents of an object message. This may require 
updating an object that is already known, or introducing a new 
object into the world model. This also handles object remove 
messages . */ 

void processObjMsg(void *rasg) { 

SpId id = (spld)msg; /* be careful, local fields missing */ 

spId existingid, nevid; 

SpId class = loDkup(g8tClass_Cid)) ; 

if (getMsgCodG(id) != SPLINEVEKSION) return; /* just ignore */ 

if (sp5QlfOvn8(id)) r«tuni; /* ignoro any mossages about our own objects */ 

if (getClaseFilterCclaao)) return; /* ignore if filtered out */ 

/* hero are special cases for COMDEX. This should bo generalized. */ 
if (8trcmp(thieproc->name, "spvisual") 0 frft 
subclass (class, spcAppearanceLink) ) return; 
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if (atrcmp(thisproc->name , "spaudio") !- 0 4& 
subclass (class, spcSoundLink) ) return; 

/* remove actions are handled in a special fast way */ 
if (class spcRemoveAction) { 

spid togo = lookup(getActionObj_(id)) ; 

if (togo) { 

ZZ(OBJ) zprintf ("pom: removing obj (0xX08x-y,s)\n", 
togo , getClassName CgetClass (togo) ) ) ; 
Z(OBJ) removeCin'++; 
spRemove(togo) ; 



else if ( (exist ingid = looliup(getNajae(id)) ) ) { 
if (getClass(existingld) spcSlot) { 
newld = createNewObj (id) ; 
handleSpIdChange(existingId, neuld) ; 
spRemove (exist ingId) ; 

ZZ(OBJ) zprintf ("pom: replacing slot with now obj (0xy,08x-*/s)\n 
newld , getClassName (getClass (nevid) ) ) ; 
Z(OBJ) slotupgradeCNT+4; 
return; 

> 

if ( get TimeOf Update (id) < getTimeOf Update (exist ingId)) < 

ZZ(OBJ) zprintf ("pom: stale info for current obj (0xy,08x-*/s)\n" 
«xistingld» getClassName (getClass (exist ingId))) ; 
Z(OBJ) staleCNT++; 
return; 

} 

if (getTimeOf Update (id) == getTimeOf Update (existingid)) { 

ZZZ(OBJ) zprintf ("pom: repeat info for current obj (OxX08x-y,e)\ 

existingid, getCla8sNane(getClase(exi8tingId))) ; 
Z(QBJ) repeatCNT++; 
return; 

> 

ZZZ(OBJ) zprintf ("pom: new info for current obj (0xy,08x-y,a)\n" , 
existingid, getClassNaine(getClass(existingId) )) ; 
Z(OBJ) updateCNT++; 

if (subclass(getClass (existingid) , spcPOV)) { 
spLocale oldlid * get BeaconLocal eld (existingid) ; 
spLocale newlid ■ getBeaconLocaleld(id) ; 

if (oldlid != newlid) POVEnteringFroiQ(newlid» oldlid); 

> 

updateExistingObj (existingid, id) ; 
ZZZZ(OBJ) spprint(exi3tingld) ; 

} 

else { 

newld « createNewObj (id) ; 

if (subclass (get Class (newld), spcPOV)) 

PDVEnteringFrom(get BeaconLocal eld (newld) , MOLOCALE) ; 
Z(OBJ) zprintf ("pom: added new obj C0i'/.08x-y,3)\n" , 
newld, getClassNaneCgetClass(newId))) ; 
Z(QBJ) newCNT++; 
ZZZZ(QBJ) spPrint (newld) ; 

> 

} 

/* allocates space the caller must free */ 

char '('readFilalntoBuff or (char *fnanio, int * dataSizo) 

{ 

int fp; 

int sof ar ^ Q • 
int count; 
char *buffor; 
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int buffersiza; 
struct Stat s; 

if C!assert(Cfp = open (f name. O.RDONLY) ) != -1)) return NULL; 
zero (f Stat (fp« Its)); 
buffersize - s.st.size; 

as sort ((buffer = (char *)malloc (buffersize + 1)) \- NULL); 
while (sofar < buffersize) { 

count = read(fp, buff or+eof ar, buff ore ize- sofar) ; 
if (count =» -1) { /* error */ 

zwarn("Failed to read all of J(s-\n", f name) ; 
return NULL; 

> 

sofar +■ count; 

if (count — 0) < /* whole file read */ 
break; 

} 

> 

*(buffer+ sofar) - *\0'; 
close(fp) ; 

if (dataSize) ♦dataSize = buffersize; 
return buffer; 



/* This crudely gets a long int parameter out of a Link arg. It 

assumes the 'parameter* name string appears only as such and not in 
any values. */ 

long int getLongParamCchar paramName, char * argString) { 
long int value; 
char * x; 

if (largString I) IparanNane II !strcmp(paramName, "")) return 0; 

X = strstr (argString, paraiiiNarne) ; 

if ( !x) return 0; 

X - X + strlen(paraiiLNane) ; 

if (!x) return 0; 

X = X + strspn(x, " ="); 

sscanf(x, "Xld", Avalue); 

return value; 



/* This may return a buffer the caller must free. */ 
/* This may create a file that needs to bo doletod. */ 
/* Use freeURLFile to clean up. */ 
char *getURLFile(char *url) { 

static int counter = 0; 

char tmppath[MAXPATHLEN]; 

char cmd[2*HAXPATHLEN]; 

char extension [20] ; 

char *dot ; 

char »ret; 

char *p; 

if (stmcrap(url, "file:", 5) " 0) { 
p = url+5; 

} 

else { 

if (urlCO] == II strchr(url. ':') NULL) < 
zwam("y.s does not appear to be a URL\n", arl) ; 

extension Co] = '\0'; 

dot = strrchrCurl, '.'); 

if (dot) st ropy (extension, dot); 

sprintf (tmppath, 'Vtmp/spiCdXdXs'* , (int) getpidO. counter++, extension); 
sprintr (cmd , "ww_3.0 -source Xs -o %s > /dev/null;chnod 666 Xs", 
url, tmppath, tmppath); 
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assert(system(cind) -1); 
p = tmppath; 

> 

assortCrat = (char *) malloc(3trlGn(p)+l)) ; 
strcpyCrot, p) ; 
' return rat; 

:■> 

!ivoid f reaURLFileCchar *url, char *fii) { 
if (stmcmpCurl, "file:", 5) != 0) { 
zero (unlink (fn)) ; 

■ y 

freo(fn); 

; > 

: /* This returns a buffer the caller must free. */ 
I char ♦getURLData(char ♦URL, int *bytes) { 

char *f - getURLFile(URL); 

char *r • readFilelntoBuf f er(f , bytes); 

freeURLFile(URL, f ) ; 
return r; 

■ > 

: typed ef void ClassFn(spId id); 

. void doClassF^(spId id) { 
static int warnings - 0; 
ClassFn ♦ fn; 

fn = ((ClassFt *) (met hodTablatgetClassFn (get Class (id))])) ; 
if (fn == MULL) { 
if (warnings++ < 5) 
zwarn('7.s has no class function\n" , getClassName(getClassCid))) ; 

> 

else fn(id) ; 

} 

; /* These are the special class functions ♦/ 

/* DoSoundAction, doSourceAct ion are in audiomodule.c */ 

/* For the moment, this does nothing */ 
, void doAppearanceLinlc(spId id) < 

/* The appearance is loaded via a callback in spvisual */ 

/* This code is never actually run, because remove actions are never 
actually put in the world modal, but rather axe just directly sent 
as massages by opRenove and interpreted directly on receipt by 
processObjMsg. However, they would work (slowly) if you made them. */ 

void doRemoveAction(9pId id) { 
spid remid « getActionObj (id) ; 
if (remld) 3pRemove(rentId) ; 
actionRemoveSelf (id) ; 

^> 

■void doOwnershipRequest(spId id) {return;} 

: /* A text link is a link where the data is a string < 500 chars long. 
It is specif ed directly in the link arg. The URL must be NULL. ♦/ 

void doTextLink(spId id) { 

int len = stTlen(getLinkArg(id)) ; 

if (getLinkURL(id) [O] !=0) 
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zwarn("TextLinks don't need URLs \"y.s\"\n", getLinkURL(id)) ; 
aotLinkData(id, getLiiikArg(id) ) ; 
setStreamFormatCid. SP1ASCII8N0N0) ; 
setStreamDuratioaCid, len) ; 
setStrearaBytes(id, len) ; 



/• Locale links */ 



. /* A locale file is a list oi entries of the following form: 
things are in ascii at the moment to facilitate debugging. 

1) a symbolic locale name beginning in coluim 1 

folloved by information on lines starting with a SPACE. 

A) The locale id (hex long) , and the number of neighbors (int) 

B) a line containing the boundary data (6 floats of box 2 floats radii) 

C) groups of lines for each neighbor 

a) id of neighbor (hex long) 

b) transform (16 floats, colxmn major order) 

c) reverse transform (16 floats, column major order) 

for example you might have: 
MainConcourse 



DicksRoom 
0x23 2 

0.0 l.O 0.0 1.0 0,0 1.0 1.14 1.0 
0x10 

1.0 0.0 0,0 0.0 0.0 1.0 0.0 0.0 0.0 0.0 1.0 0.0 1.0 0.0 0.0 1,0 

1.0 0.0 0,0 0.0 0.0 1,0 0.0 0.0 0.0 0,0 1.0 0.0 -1.0 0.0 0.0 1.0 
0x11 

1.0 0.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0 0.0 1,0 0.0 0.0 1.0 0.0 1.0 

1.0 0.0 0.0 0.0 0.0 1.0 0,0 0,0 0.0 0.0 1,0 0.0 0.0 -1,0 0.0 1.0 



Cafe 

... ♦/ 

•define BUFLEN 200 

void doLocaleLinkCspId id) { 

char * name = getLinkArg(id) ; 

int nameLezi = strlen (name) ; 

char * filename; 

FILE * f ; 

char buffer [BUFLEN] ; 

struct LocaleNeighbor ** datal; 

struct LocaleNeighbor * data2; 

spLocale localeld; 

int i^ numNeigbbors; 

struct _spBoundary B; 

spTMatrix M; 

if (0==strcnipCgetLinkURL(id), "")) -C 
setLocaleId(id, 0) ; 
return; /* default NULL locale */ 

> 

filename = getURLFile(g6tLinkURL(id) ) ; 
if C(f = f open (filename, "r")) == NULL) { 

zwarnC'CanH open locale link url Xs\n". gotLinkURL(id)) ; 

f reeURLFile(getLinkURL(id) , filename) ; 

return; 

> 

do { 

if (!(f6etB<buffer, BUFLEN, f))) { 

zvam("did not find locale V'XsV" in \'7.3\"\n", 
getLinkArg(id), gotLinkURL(id)) ; 
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fcloaeCf); 

f reetmLFileCgetLinkURLCid) , f ilenane) ; 
return; 

> 

} 

vhile (iCaaneLen ? (buff •r[ji&neL«n]ss An' 
kt 0»stnxcmp(DaB«, buff or. naa«L«&)) 
: (bufferCO]!-* ' kt buffer [0] !»'\n' kk buf f er[0] !-0))) ; 
aasertO-fscanfCf ,"Xlx Xd", ftlocaiold, toiuiiNeigbbors)) ; 
setLoc&laldCid, localeld) ; 
eetLoc&leNuinNeigbborB(id, nunNeigtibors} ; 
assert C8«fscaiif(f, "Xf Xf Xf Xf Xf Xf Xf Xf". 
iB.bboxCO], *B.bbox[l3, ftB.bbox[2], tB.bboxCS], tB.bbox[4] , 
AB . bboxCS] , AB . outRadius . kh . InEadius) ) ; 
setLocaleBoiindaiyCid, ftB) ; 
if (nunNaigbboTs) i 

assert(datal " (struct Loc&leNeighbor '*<*)c&lloc(l, aumNeighbors* 
(sizeof (void ♦)+ 

sizeof (struct Local eNeigbbor) ))) ; 
d&ta2 • (struct Local dfeigbbor *) (datal numNeighbors) ; 
for (i - 0; KnunMeighbors; i++) { 

assertd—fscanf (f , »Xlx% Alocaleld)); 

data2[i] .localeld - localeld; 

as8ert((16"fscaiif(f , "Xf Xf Xf Xf Xf Xf Xf Xf Xf Xf Xf Xf Xf Xf Xf Xf" 
^.Dix[03> AM.oixCl], iK.iiix[2], iM.iix[3]. tM.iiz[4]. 
W.nxCS]. AM.iiix[6]. AH.axCY], iM.iix[8]. AM.iix[9]« 
AM.nxClO]. AK.nxCll]. ftM.fliz[l2], AH.]ix[l3]. 
&M.mx[14]. AM.u[15]))); 

data2[i] .transfom " M; 

as8ert((i6««f8caiif (f . "Xf Xf Xf Xf Xf Xf Xf Xf Xf Xf Xf Xf Xf Xf Xf Xf" 
ftN.mxLo], AH.mxtl], tH.mz[2], AH.iix[3], AH.mx[43, 
fcH.mxCS], AM.lu[6]« ftH.nx[7]. AM.iix[8], AM.mzCd]. 
ftM.mzClO]. tM.Bx[ll]. AN.ax[12]« ftH.mx[13h 
JfcM.mx[14]. *M.iix[15]))); 

data2[i] .reverseTransf om ^ H; 

datal [i] » ftdata2[i]; 

> 

setLinkData(id, (void *)datal); 

> 

informNetvor]cLocaleIaRead7(getLocaleId(id) , id) ; 
f close(f ) ; 

freeURLFile(getLiiLkURLCid) , filename) ; 



Haviog above indicated a preferred embodiment of the present inventioa, it will occur 
to those skilled in the art that modifications and alternatives can be practiced within the 
spirit of the inventioa. It i3 accordingly intended to define the scope of the invention only 
as indicated in the following clainu. 
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Having above indicated a preferred embodiment of the 5. The system of claim 2, wherein said determining means 

present invention, it will occur to those skilled in the art that at said recipient node inckdes means at said recipient node 

modifications and alternatives can be practiced within the for storing a previous small data-notification message and 

spirit of the invention. It is accordingly intended to define corresponding data 

the scope of the invention only as indicated in the foUowing 5 g j^^^ ^ ^^^^^ 5^ ^^^^^^ determining means 

„„* . J. at said recipient node further includes means for ascertaining 

What IS clamied is: . . r ■ . ^, ^ • 

1. A system for eliminating time consuming unnecessary ^^J^^^^ ^ ^^^^^^^ data-notification message there 
transfers of data over a network, while at the same time exists a stored small data-notification message with the same 
guaranteeing timeliness of data used by a recipient node of lo data location and checksum, this being true indicating that 
said network, comprising: ihe corresponding data is already available at said recipient 

a source of data coupled to said network, node. 

means at said source for sending a command in the form '7- system of claim 5, wherein said determining means 

of a small positive data-notification message over said at said recipient node further includes means for ascertaining 

network for each version of said data to indicate that a whether for a received small data-notification message there 

recipient node should obtain a particular version of a exists a stored small data-notification message with the same 

particular data item; data location and a different checksum, this being true 

means at said recipient node and responsive to said small indicating that the corresponding data has changed and 

data-notification message for determining whether the needs to be refetched. 

data corresponding to said small data-notification mes- The system of claim 5, wherein said determining means 

sage is aheady present; and, recipient node further includes means for ascertaining 

means at said recipient node for fetching the data speci- whether for a received small data-notification message there 

fied by said small data positive notification message if ^^^^^ ^ scored small data-notification message with the same 

not already present at said rec^ient node, whereby said data location, this being false indicating that the conespond- 

source commands via said small positive data- ^ * • ^ ^ * u * ♦ u j 

* • * J * u ing data is new and needs to be fetched, 

notification message that appropnate new data be t. r« . ^ i • * . • • i ti , . 

fetched and avaflable at said recipient node if not ^« ^^'^^"^ °{ ^ ^' .^^erem said small data- 

already there notification message includes a timestamp and wherem said 

2. The system' of claim 1, wherein said small data- 30 determining means at said recipient node further includes 
notification message includes a checksum and data location. ^^^^ ascertaining whether for a received small data- 

3. The system of claim 2, and further including means at notification message there exists a stored small data- 
said recipient node and responsive lo said checksum for notification message with the same data location and a later 
ascertaining the validity of the corresponding data fetched timestamp, this being true indicating that said received small 
over said network. 35 data-notification message is not timely and should be 

4. The system of claim 2, wherein said network is the ignored. 
Worldwide Web and wherein said data location is a uniform 

resource locator URL. ***** 
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